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Nedávno j sem si někde přečetl, že Japonci dali do prodeje komputer, 
který odpovídá na otázky dítěte — nechrne stranou technický problém, 
jak se přístroji daří zanalyzovat dětskou řeč, pochopit smysl otázky, 
nalézt v paměti správnou odpověď a jak ji opět lidskou řeči přednést 
— ale co na to dítě? Ti co je mají, to znají z vlastní zkušenosti. „Dej mi 
pokoj “ nebo „co se pořád vyptáváš" případně se stroze odpoví a ne 
vždy zcela správně. Kontakt dítěte s rodičem je tím sice zachován, ale 
ne zrovna tím nejlepším způsobem. Dítě bere rodiče jako neomylnou 
autoritu. Když se později dozví, že rodič neměl pravdu, nebo že nezná, 
je tato autorita poněkud otřesena, cit a láska zde však většinou 
zůstanou. Ale co komputer a vztah dítěte k jeho přesné a problém 
otázky zcela vyčerpávající odpovědi. Dítě se dovídá mnohem více, je 
rychleji vzdělané, ale je ochuzeno o citovou stránku vztahu k rodiči. 
Kromě toho vzniká vztah člověka ke stroji, k zařízení které člověku 
rozšiřuje obzor poznání, učí ho navíc vyjadřovací přesnosti, ale také 
tvořivému myšlení, jak otázku formulovat či jakou otázku položit, aby 
stroj překonal. Z člověka tak může vyrůstat vysoce inteligentní tvůrce 
dalších hodnot, člověk, který se třeba více uplatní v moderní technické 
společnosti, protože byl od mládí přesně a bohatě informován. 

„Potřebujeme kvalitativně novou úroveň veřejné informovanosti i ve 
vojenské oblasti " píše v listu IZVESTIJA Stanislav Kondrašov 
a pokračuje: „Bez ní nemůžeme počítat se stabilní důvěrou okolního 
světa vůči sovětské politice. Bez ní není možná seriózní veřejná diskuse 
v zemi o účelnosti a prioritách státního rozpočtu, o tom, jak velkou jeho 
část si můžeme dovolit věnovat na budování a udržování ozbrojených 
sil. Sovětský svaz se v roce 1987 na půdě OSN zavázal, že oznámí reálné 
vojenské výdaje. Splnění tohoto závazku je však spojeno s propočty, 
které komplikuje i tak relativní systém cen, rozptýlenost zbrojních 
zakázek po více než patnácti ministerstvech, a možná také 
v rozhodující míře to, že nikdo vážně výdaje nepočítal. Nikoliv ze 
sovětských, ale z amerických publikací se dozvídáme, že jeden 
z významných sovětských vojenských činitelů za návštěvy v USA uvedl, 
že ani sám skutečný rozsah vojenských výdajů nezná. Neznáme 
celkový početní stav našich ozbrojených sil, ačkoliv na Západě, 
například v USA, se početní stav ozbrojených sil pravidelně oznamuje. 
Nevíme, jakou část z celkového počtu našich tanků tvoří 10000 
tanků, které se mají zlikvidovat, a kolik tankových divizí zůstane ve 
východní Evropě poté, až jich odtud bude šest staženo ." Tyto 
skutečnosti podle komentátora nejen brání důvěře okolního světa vůči 
SSSR, ale především brání racionálnímu řízení země, racionální 
mobilizaci sil a zdrojů k přestavbě. 

Tolik Rudé právo z 5. ledna 1989. 

Léta se v zemích RVHP mlčky předpokládalo, že je to nutný úmysl 
utajovat přesná čísla o čemkoliv, aby „třídní nepřítel " nevěděl. Dnes se 
nám toto utajování všeho do nedávné minulosti mstí. Rozrostlo se 
tak, že jsme neschopní mít jakoukoli skutečně pravdivou evidenci 

0 čemkoli, čili jsme v totální nevědomosti o skutečném stavu věcí a to 
kdekoli. Západní země nám proto nevěří. „Nevěří našim údajům 
a provádějí si vlastní průzkumy a evidenci jak to vlastně v zemích RVHP 
skutečně vypadá." (E. ševarnadze). Všeobecná neinformovanost, ale 

1 neznalost skutečného stavu věcí vyplývá také z totální nedisciplinova- 
nosti vyplňování různých formulářů a hlášení (tuto nedisciplinovanost 
ovšem podporuje jejich vlastní ubohost a často i nesmyslnost) 
vymyšlenými nebo vhodně upravenými údaji tak, aby vyhovovaly přání 
nadřízených složek. Zpracované výsledky jsou pak přirozeně mylnými 
podklady pro centrální zpracování, z kterého dále vznikají nereálné 
plány, scestné směrnice, nesplnitelná usnesení. Dodavatelsko-odběra- 
telské vztahy jsou narušeny, úkoly se neplní, prostoje a dluhy rostou. 
A to především proto, že informace není strojově objektivní, člověk ji 
zkreslil, upravil, znehodnotil. Komplexní hromadné nasazení a plné 
využití výpočetní techniky, automatizace sběru a vyhodnocování údajů 
by subjektivní vlivy člověka výrazně omezilo, přesunulo na periferii 
rozhodovacího procesu. To by se ovšem některým bonapartistům 
nelíbilo, ale stroj vždy rozhoduje objektivně, nestranně, vědecky 
přesně. A jedině exaktní řízení společnosti založené na objektivně 
pravdivé informovanosti je v moderní době možné. 

Nasazení výpočetní, automatizační a další moderní techniky v řízení, 
vyhodnocování, rychlé koordinaci atd. přímo v masovém měřítku do 
všech hospodářských a řídicích struktur ve všech zemích západního 
hospodářského systému (EHS) umožnilo mimo jiné výhled sjednocení 
celé ekonomiky do jednotného tržního systému po roce 1992. 
S „ Nysami “ a „sčotý" by to nikdy nebylo možné. Takováto nadnárodní, 
mohutná organizace by nikdy nemohla být rentabilní a bez dokonalého 
vybavení nejmodernější technikou by se nutně zpátky atomizovala 
a přijala opět přísná celní, vývozní a další opatření. Bez supermoderní 
techniky v pokrokové industriální společnosti není tedy možný rychlý 
koordinovaný vzájemně výhodný postup vpřed. 

Amatérská zájmová činnost, stavba nejrůznějších přístrojů a zařízení 
patřily, patří a budou patřit mezi krůčky v tomto směru. 

Ing. Jan Klabal 





Ing. Lumír Přibyl, Pavel Brychta v. Noska 67, 664 n zbýšov 

Jedním z nových druhd informačních služeb při současném využití stávajících tras pro přenos 
informací jsou systémy využívající dosud volných řádků v televizním signálu. Systém, který pro přenos 
informace digitálním zp ůsobe m využívá volných řádků v půlsnimkovém zatemňovacím intervalu, 
.dostal obecný název TELETEXT. 

Teletextová služba byla poprvé realizována ve Velké Británii v polovině sedmdesátých let u státní 
společnosti BBC pod názvem Ceefax a u komerční IBA pod názvem Oracle. 


Teletextové systémy jsou postupné 
zdokonalovány a v této souvislosti 
existuje dělení přenosových systémů 
na pět tzv. úrovni: 

Úroveň 1— základní abeceda bez dia- 
kritických znamének. Šest základních 
barev, relativné hrubá grafika. Tuto 
úroveň má britská verze teletextu 
v základním provedení. 

Úroveň 2— abeceda včetně diakritic- 
kých znamének, pastelové barvy, 

, hladké přechody mezi symboly mo- 
zaikového typu. Tato úroveň se čás- 
tečně využívá při aplikaci britského 
teletextu pro jiné jazyky. 

Úroveň 3— zavádí se tzv. DRCS { Dy ná- 
mi ca I ty Redefinable Character Set) 

— dynamicky redefinovatelné sou- 
bory znaků, tzn. nejprve se z centra 
nadefinují netypizované znaky a sym- 
boly, pak jsou vyvolávány obdobné 
jako znaky typizované. V této úrovni 
je možno vytvářet grafiku s vysokou 
rozlišovací schopností, rozšířit počet 
barev, používat i obrázkového písma 

_ (japonština a čínština). 

Úroveň 4— aifageometrické kódování; 
definuje zobrazované znaky s použi- 
tím pěti základních povelů pro kres- 
• lení bodů, čar a ploch. Lze zobrazit 
obrazy bohaté na podrobnosti, které 
se kvalitou blíží fotografii. V této 
úrovni pracuje např. kanadský sy- 
_ stém Telidon. 

Úroveň 5— alfafotografická metoda 

— umožňuje přenos statických obra- 
zů s vysokou rozlišovací schopností. 
Obraz má zpočátku hrubou strukturu 
a s postupujícím časem se zjemňuje. 
Tato metoda je použita při vývoji 
japonského systému Captain. 

V Československu bylo po zvážení 
technických i ekonomických faktorů 
rozhodnuto zavést systém W8T (World 
System Teletext — takto je z pre- 
stižních a reklamních důvodů nazýván 
britský systém teletextu). V sousedních 
zemích se tímto systémem buď už 
vysílá (NSR, Rakousko, Maďarsko) ne- 
bo se vysílání připravuje (Polsko). 

Základní technická specifikace sy- 
stému WST: 

1. Data se přenášejí rychlostí 6,937$ 
Mbit/s v tzv. „neviditelných" tv řád- 
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cích (tj. řádcích č. 7 až 22 a 320 až 
335, které následují těsně po sním- 
kovém synchronizačním impulsu, ale 
nejsou zobrazovány). Pokud není 
vysílán běžný tv signál, lze využít 
všech tv řádků. Během jednoho tv 
řádku se přenese informace o celém 
textovém řádku, tj. číslo magazínu, 
číslo řádku a 40 znaků, v případě 
nultého řádku číslo magazínu, číslo 
řádku, číslo stránky a podstránky, 
řídící kódy a 32 znaků. 

2. Každá zobrazovaná stránka má 24 
textových řádků po 40 znacích. První 
řádek stránky (tj. řádek č. 0) se 
nazývá záhlaví. Jsou v něm přenáše- 
ny řídící informace nutné pro zobra- 
zení stránky, dále číslo zobrázené 
stránky, název informační služby (na- 
př. CST-TEXT nebo ORF-TELE- 
TEXT), datum a přesný čas. 

3. Maximální počet přenášených 
stránek je 800, každá z těchto 
stránek může mít až 50 přiřazených 
„podstránek**. Stránky se rozdělují 
do tzv. magazínů po 100 stránkách. 
Doba přenosu jednoho magazínu je 
asi 25 s při využití dvou řádků 
v půlsnimkovém zatemňovacím in- 
tervalu. Při větším počtu magazínů 
nebo při využití „podstránek" se 
doba přenosu celé relace příslušně 
prodlužuje. 

4. Rychlost přenosu je možné zvětšit 
zvětšením počtu využitých řádků (na- 
př. 4 nebo 6 v půlsnimkovém za- 
temňovacím intervalu). 

5. Informace jsou přenášeny sériově 
pomocí digitálních slov s jednotnou 
délkou osm bitů. Sedm bitů je infor- 
mačních, osmý bit je paritní. U adres 
a důležitých funkcí je použito ochra- 
ny samokorigujícím Hammingovým 
kódem. 

6. Systém umožňuje zobrazení textu do 
aktivního obrazu, např. titulkování 
pořadů pro neslyšící nebo zobrazeni 
tzv. „newsflash**, tj. důležité krátké 
zprávy, která se na obrazovce obje- 
vuje v okamžiku vysílání. 

7. Může být použito osm barev pro po- 
zadí znaků a vlastní znak. Dáte je 
možné zobrazovat znaky s dvoj- 
násobnou výškou. 


Podrobný popis je uveden v souhrn- 
ném přehledu „TELETEXT — popis 
systému WST úrovně 1.5 na str. 9. 


Stav v ČSSR 

V Československu do konce roku 
1988 probíhalo experimentální vysílání, 
určené především pro pracovníky re- 
dakcí teletextu a pracovníky spojů. Od 
1. 1. 1989 je zavedeno pravidelné 
vysíláni. Předpokládá se, že hlavní 
náplní této nové služby bude alespoň 
z počátku pomoc národnímu hospo- 
dářství, tj. sdělování informací z oblasti 
průmyslu, zemědělství, dopravy, zdra- 
votnictví apod. Dále bude nabízet 
programy rozhlasu a televize, divadel, 
informace o počasí, výukové programy, 
zpravodajské informace atd. 

Specifickým problémem zavedení tele- 
textu v ČSSR je existence dvou spisov- 
ných jazyků, resp. i některých jazyků 
menšinových. Rozšíření souboru znaků 
tak, aby dokonalé zobrazit všechna 
diakritická znaménka, užívaná v češtině 
a slovenštině, a dále o znaky užívané 
v abecedách sousedních zemí, je úzce 
spojeno s volbou systému teletextu. 

Základní tabulka znaků 00, platná 
pro WST úrovně 1 (viz článek „TELE- 
TEXT — popis . . .“) je navržena pro 
angličtinu. Při postupném zavádění 
WST v evropských zemích musei být 
splněn požadavek na zobrazení speci- 
fických národních abeced. Tak vznikly 
další normalizované národní tabulky, 
kde jsou na třinácti definovaných pozi- 
cích umístěny některé národní znaky. 

čeština spolu se slovenštinou obsa- 
huje značně větší počet zvláštních 
znaků. Proto musel být systém na 
úrovni 1 rozšířen alespoň při přenosu 
alfanumerických znaků na úroveň 2. 
Tím se však poněkud prodlouží doba 
přenosu a zvýší se nároky na funkci 
dekodéru. Úroveň takové soustavy se 
označuje jako „úroveň 1,5“. 

Prakticky se přenos dat na této 
úrovni provádí tak, že jsou vysílány tzv. 
neviditelné řádky (pakety), které mají 
podobný formát jako textové řádky, ale 
mají číslo vyšší než 24 a nesou doplňu- 
jící informace pro dekodér znaků. 

Pro příjem informací přenášených 
pomocí teletextu je třeba, aby televizní 
přijímač byl vybaven speciálním deko- 
dérem. 

Teletextové dekodéry bývají zabudo- 
vány přímo do televizních přijímačů 
a jsou sestaveny z jednoúčelových 
obvodů VLSI, vyvinutých pouze pro 
tento účeL 



Obr. 1. Blokové schéma adaptéru 


Z dosavadního vývoje je zřejmé, že 
v ČSSR bude otázka součástkové zá- 
kladny pro dekodéry řešena dovozem 
buď součástek nebo dekodérů, případ- 
né celých TV přijímačů. Dekodéry se 
samozřejmě budou montovat do no- 
vých přístrojů, protože podle vyjádření 
příslušných odborníků dosud vyráběné 
přijímače nevyhovují koncepčně pro 
kvalitní příjem teletextu. Z tohoto důvo- 
du, a také proto, že dekodéry sestave- 
né ze speciálních obvodů jsou určeny 
pro přímé vestavění do televizoru, 
nebude možné doplňovat stávající tv 
přijímače těmito dekodéry. V současné 
době u nás není tedy na čem tyto 
informace přijímat. Je vhodné zamyslit 
se nad možností, jak využít stávajících 
tv přijímačů (i když nejsou zcela vhod- 
né) a případně dalších dostupných 
přístrojů tak, aby bylo možné teletext 
dekódovat a zobrazovat na stávajících 
televizorech i za cenu snížených kvalita- 
tivních požadavků. 

Situace je podobná té, která vznikla 
v ČSSR při zavádění II. tv programu. 
Tehdy byla řešena pomocí konvertorů, 
tj. přístrojů, které umožnily příjem 
druhého programu i na starších tv 
přijímačům. Toto řešení bylo sice ne- 
praktické (nutnost přepínání a nastavo- 
vání dvou ladicích prvků), ale přesto 
umožnilo příjem bez nutnosti zásahu 
do zapojení televizoru. 

Navrhované řešení 

Koncepce použití „vnějšího" deko- 
déru teletextu je založena na těchto 
faktech: 


1 . Přenosové charakteristiky moder- 
ních barevných televizorů zaručují 

* nezkreslený přenos barvonosných 
kmitočtů (střední kmitočet kolem 
4,4 MHz). Dále bývají vybaveny 
vstupem a výstupem videosignálu se 
standardní úrovní. Tento videosignál 
samozřejmě obsahuje i řádky nesou- 
cí teletextová data. (Praktickými 
zkouškami bylo zjištěno, že pro 
příjem v místech kvalitního signálu 
vyhoví i přenosné černobílé televizo- 
ry s doplněným videovýstupem.) 

2. Stále více se rozšiřují osobní počíta- 
če, které umožňují zpracovat vhodně 
upravenou informaci a zobrazit ji na 
obrazovce televizoru. Barevné zo- 
brazení, používané i u jednodušších 
počítačů, odpovídá částečně uprave- 
ným požadavkům na zobrazení tele- 
textu. 

Na těchto skutečnostech je založena 
myšlenka využít osobního počítače pro 
dekódování a zobrazování teletextu. 

Samotný mikropočítač samozřejmě 
není schopen přímo zpracovat video- 
signál z televizoru. Je třeba vytvořit 
vhodný mezičlánek (adaptér), který 
umožní vybrat data, vysílaná v pří- 
slušných tv řádcích, převést je ze 
sériového do paralelního tvaru 
a uschovat je na potřebnou dobu ve 
vyrovnávací paměti. Z této paměti si je 
pak v daném okamžiku mikropočítač 
přesune do své operační paměti, vhod- 
ným způsobem zpracuje, a zobrazí na 
obrazovce. 

Z uvedeného způsobu dekódování 
vyplývají některá omezení a nevýhody 
proti standardnímu způsobu dekódo- 
vání: 

1. Základní sestava pro příjem teletextu 
je složena z tv přijímače, adaptéru, 


mikropočítače a monitoru pro mikro- 
počítač. V praxi to znamená použití 
dvou tv přijímačů. 

2. Při požadavku na použití pouze jed- 
noho televizoru je nutný buď zásah 
do přijímače nebo by bylo možné při 
příjmu tv signálu obsahujícího tele- 
text požadovanou stránku načíst do 
paměti mikropočítače, pak přepnout 
tv přijímač jako monitor a stránku 
zobrazit. V druhém případě by tedy 
během výběru a zpracování dat bvl 
na obrazovce televizoru program 
přijímaného vysílače (u standardního 
dekodéru je stále zobrazena posled- 
ní načtená stránka). Dále by byla 
nutná zvuková signalizace načteni 
stránky. V případě, že zvolená strán- 
ka má rotující podstránky, je tento 
způsob velmi nepraktický. 

3 . Vzhledem ke způsobu zobrazování 
mikropočítačů pomocí „okna" na 
obrazovce (ZX-Spectrum, Sord, 
Sharp) je zobrazená stránka roz- 
měrově menší; to má za následek 
zhoršenou jakost obrazu. 

4. Není možné vkopírovat zobrazované 
informace do tv obrazu, tj. nelze 
např. titulkovat vysílané pořady. 

5. Každý mikropočítač je zdrojem po- 
měrně intenzivního rušení. Také sám 
adaptér ruší, i když podstatně méně 
než mikropočítač. Při použití uvede- 
ného způsobu příjmu teletextu je 
vlastně mikropočítač přes televizor 
připojen k anténě. Z toho plyne 
především nutnost zkontrolovat 
možnost rušení okolních televizních 
a rozhlasových přijímačů zvláště 
v případě, že se jedná o příjem na 
společnou anténu. Dále je nutné 
počítat s tím, že příjem teletextu 
bude zcela znemožněn, pokud při- 
jímaný vysílač bude v I. nebo II. 
pásmu, a bude obtížný při příjmu 
vysílačů v dolním konci III. pásma 
(kanál č. 5 CCIR-B a č. 6 CCIR-D). 
Tento problém se netýká jenom 
příjmu zahraničních vysílačů, čs. 
teletext je sice vysílán pouze v síti 
druhého programu (tj. pásmo IV. 
a V.), ale ve společných anténách 
bývá přijímaný signál převáděn na 
některý kanál v pásmu I. a II. a jeho 
využití pro příjem teletextu tímto 
způsobem je znemožněno. Řešením 
je pak pouze individuální příjem 
druhého programu. 

Dekódování teletextu mikropočíta- 
čem naopak umožňuje snadné zpraco- 
vání přijatých dat, jejich přenos do jiné 
informační sítě a další zpracování. Dále 
je možné úpravou programového vyba- 
vení modifikovat zpracování informací 
podle požadavků uživatele. Relativně 
velká operační paměť mikropočítače 


umožňuje i takový způsob dekódování, 
kdy je několik požadovaných stránek 
nejprve načteno a zpracováno a pak 
jsou postupně v libovolném pořadí 
zobrazovány bez jakýchkoli ztrátových 
časů. 

Koncepce adaptérů pro 
dekódování teletextu 
mikropočítačem 

Adaptér se skládá ze dvou základ- 
ních částí — analogové a digitální, viz 
blokové schéma na obr. 1. 

V analogové části je videosignál 
nejprve zesílen ve vstupním zesilovači, 
pak jsou z něho odděleny synchroni- 
zační impulsy a vlastní data. Tyto dva 
signály jsou dále zpracovávány v digi- 
tální části adaptéru. Ze synchroni- 
začních impulsů jsou odvozeny klíčova- 
cí impulsy pro řízení výběru dat 
a sériově-paralelního převodu. Data, 
převedená do paralelního tvaru, jsou 
přiváděna do identifikačního obvodu, 
který reaguje na identifikační slovo 
teletextu (framing code). V případě, že 
je toto identifikační slovo nalezeno, 
zapíší se následující data z příslušného 
řádku do vyrovnávací paměti. V aktivní 
době půlsnímku, tj. v době, kdy je na 
obrazovce zobrazován obraz vysílaný 
vysílačem, pak mikropočítač řídí pře- 
sun dat z vyrovnávací paměti do vlastní 
operační paměti a dále je zpracovává 
podle zadaných požadavků. 

Ve skutečnosti nejsou jednotlivé 
funkční bloky ostře odděleny, ale na- 
opak, z důvodů co nejjednoduššího 
zapojení se navzájem prolínají. 

Popis zapojení a funkce . 
jednotlivých obvodů 

Zapojení adaptéru a napájecího 
zdroje je uvedeno na obr. 2. a 3. 

Analogová část vlastního adaptéru je 
řešena klasickým způsobem pomocí 
diskrétních součástek, digitální část 
využívá obvodů TTL SSI, MSI a LSI. 

Tranzistory TI, T2, T3 a T3’ tvoří 
vstupní zesilovač, jehož zesílení lze 
nastavit proměnným rezistorem R5. 
Předpokládá se, že velikost mezivrcho- 
lového napětí vstupního signálu je 
v rozsahu 0,5 až 5 V. Tranzistory T3 
a T3’ vytváří oddělené výstupy video- 
signálu pro separátor a tvarovač dat 
a separátor a tvarovač synchroni- 
začních impulsů. 

Z emitoru tranzistoru T3’ je signál 
přiveden do obnovitele stejnosměrné 
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složky tvořeného kondenzátorem C8, 
rezistorem R14 a diodou Dl. Ten upíná 
temena synchronizačních impulsů na 
úroveň asi — 1 V. Vlastní obrazový 
signál prochází dolní propustí, která je 
tvořena rezistorem R15 a kondenzáto- 
tem C9. Takto upravený signál je 
přiveden na neinvertující vstup kompa- 
rátoru synchronizačních impulsů (t/2 
102). Invertující vstup je spojen 
s jezdcem nastavitelného rezistoru 
R26. Tímto trimrem se nastavuje vzor- 
kovací úroveň. Na výstupu kom paráto- 
ru pak získáme synchronizační směs 
obsahující řádkové Lsnímkové syn- 
chronizační impulsy (H). V obvodu slo- 
ženém z 103, R18, R19, Cl 9 jsou z této 
směsi odděleny snímkové synchroni- 
zační impulsy (v. V). 

Od snímkového synchronizačního 
impulsu (V) je odvozen pomocí dvou 
monostabilnfch klopných obvodů (104) 
signál GO, který vymezuje dobu, po 
kterou se předpokládá příchod řádků 
obsahujících teletext (tj. řádky č. 7 až 
22 a 320 až 335). Přesné časové 
umístění signálu GO lze nastavit pomo- 
cí R21 a R23. 

Z emitoru tranzistoru T3 je přes 
kondenzátor C4 přiváděn videosignál 
přímo na neinvertující vstup kompa- 
rátoru (2/2 102). Obvod C5, R9, 2/4 
lOI, R10, C49 a T4 tvoří spotu S C4 
obnovitel stejnosměrné složky. Upnu- 
tím na úroveň černé se odstraňuje vliv 
kapacitní vazby na posun úrovní video- 
signálu při kolísání středního jasu. 
Vzorkovací úroveň, přiváděná na inver- 
tující vstup komparátoru z R13, musí 


být nezávisle na velikosti přiváděného 
videosignálu vždy uprostřed mezi úrov- 
němi log. O a log. 1. Toho dosáhneme 
tak, že napájíme rezistor R13 ze 
špičkového usměrňovače T5, R11 a C6 
přes tranzistor T6, který slouží pro 
posun úrovně napětí. Napětí na emitoru 
T6 se při změnách velikosti při- 
váděného signálu mění souhlasně 
s úrovní odpovídající log. 1. Tím je 
zajištěno automatické udržování vzor- 
kovací úrovně na požadované hodnotě. 
Na výstupu komparátoru dostaneme 
signál DATA, který obsahuje teletexto- 
vá data v sériovém tvaru. Kondenzátory 
C16 a C16’ slouží k „doladění" (tvaro- 
vání) signálu DATA. 

Ze signálu DATA jsou v obvodu 
tvořeném 105, rezistory R24, R25, R26, 
R27 a kondenzátory C17 a C18 získány 
synchronizační impulsy pro generátor' 
hodinového kmitočtu 6,9375 MHz. Ge- 
nerátor využívá jedno hradlo 106 spolu 
s C21, C22 a LI jako oscilátor 
a zbývající hradla slouží jako invertory. 
Na výstupu t ěchto invertorů získáme 
signál CLK a CLK, který je nutný pro 
sériově-paralelní převodník. Generátor 
je klíčován signálem GO, tzn. že kmitá 
pouze v době předpokládaného pří- 
chodu teletextových dat. 

Sériově-paralelní převodník je reali- 
zován pomocí posuvného registru 107, 
obvodu 108, zapojeného jako osmičko- 
vý čítač, a mezipaměti (budiče sběrni- 
ce) lOII. Posuvný registr je klíčován 
signálem GO. Na vstup posuvného 
registru jsou přiváděna data v sériovém 
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Asm. : Signet DATA je citlivý no pfípojem' osatoskopu. 

Lze st pomoci lok, že snímáme signál no vývodu č.3 
posuvného registru 107. 

Obr. 4. Průběhy hlavních signálů během začátku jednoho půlsnímku 
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Obr. 5. Průběhy hlavních signálů během příchodu teletextového řádku 
(průběhy jsou idealizované, skutečné vzájemné umístěni signálů závisí na zpoždění použitých obvodů) 


tvaru, posuv dat je prováděn v rytmu 
hodino vého kmitočtu CLK. Současně Je 
signál CLK přiváděn do osmičkového 
čítače, který vytváří zapisovací impulsy 
(STB1) pro zápis jednoho bajtu do 
mezipaměti 1011. 

Obvody 109, 101 0 a 2/4 101 tvoří 
identifikační obvod, který reaguje na 
přítomnost tzv. rámcového kódu na začát- 
ku teletextového tv řádku. Jestliže se 
na výstupu posuvného registru objeví 
tento kód, pak se na vý stup u 1010 
(vývod č. 8) vytvoří impuls (FR). Pokud 
se tento impuls vyskytne na začátku 
řádku (kontrola pomocí 2/4 lOI ), je pak 
z tohoto signálu a ze signálu TT pomocí 
klopného obvodu (2/4 1014) vytvořen 
signál WE a WE, který slouží k ovládání 
mezipaměti (1011) a vyrovnávací pa- 
měti (1019, 1020). Dále je od signálu 
WE pomocí 3/4 1012 odvozen synchro- 
nizační impuls pro osmičkový čítač 
(108). 

Vyrovnávací paměf IkB tvoří obvody 
1019 a 1020. Pro adresování této 
paměti slouží tři šestnáctkové čítače 
1016, 1017 a 1018. Inkrementování 
těchto čítačů je prováděno při zápisu 
impulsy (STB1) získanými v osmičko- 
vém čítači (108), které slouží současně 
pro zápis do mezipaměti (1011), při 
čtení pak impulsy přicházejícími přes 
1015 z mikropočítače (STB2). Přesný 
okamžik přepisu jednoho bajtu z mezí- 
paméti do vyrovnávací paměti (signál 
CS MÉM) je odvozen pomocí 1013 
v závislosti na stavu osmičkového 
čítače (108). 

Protože vyrovnávací paměť není nu- 
lovaná, je třeba při čtení vymaskovat ty 
bajty, které nebyly při předchozím 
zápisu přepsány. To je provedeno 
pomocí 1022. Citaci cyklus je zkrácen, 
je využíváno pouze 448 bajtu vyrov- 
návací paměti. Po příchodu snímko- 
vého synchronizačního impulsu je čítač " 
vynulován, během aktivního signálu 
GO a WE se inkrementuje a zastaví se 
na určité adrese. Od této adresy po- 
kračuje po skončení aktivního signálu 
GO v inkrementování mikropočítač, 
paměť je však odpojena od sběrnice. 
Teprve až dojde k „přetečení" čítače 
a jeho vynulování, je paměť připojena 
ke sběrnici. Jelikož mikropočítač čte 
pouze 448 bajtů, je zaručeno, že přečte 
pouze skutečně požadóvané bajty, 
ostatní budou zamaskovány hodnotou 
FF (hex). 

První monostabilní klopný obvod 
v 1021 slouží k prodloužení signálu WE 
pro signalizaci přítomnosti teletexto- 
vého signálu. Druhý monostabilní klop- 
ný obvod vytváří po skončení signálu 
GO impuls nutný pr o činn ost maskova- 
cího obvodu (signál ÍŇf). 

Průběhy důležitých signálů během 
jednoho půlsnímku a během příchodu 
teletextového datového řádku jsou roz- 
kresleny na obr. 4 a 5. 

Mikropočítač je k adaptéru připojen 
přes obvod typu 8255A. Signály CS PIO 
a RD PIO nejsou připojeny přes porty, 
ale jsou odebírány přímo z obvodu 
8255A (vývod č. 6 a 5). 

Z adaptéru do mikropočítače jsou 
přivedeny signály DO až 07 a GO. 

Z mikropočítače do adapté ru jsou 
p řivedeny signály ENABLÉ, CS PÍO 
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Nastavení adaptéru 

Na vstup adaptéru je třeba přivést 
videosignál s mezivrcholovým napětím 
0,5 až 5 V viz část „Podmínky dobrého 
příjmu". Protože zatím nelze nastavit te- 
levizor podle adaptéru, naladíme jej na 
co nejostřejší obraz. 

Zesílení vstupního zesilovače se na- 
staví rezistorem R5 tak, aoy na rezisto- 
rech R7 a R8 bylo mezivrcholové napětí 
asi 3 až 5 V. Při nižší kvalitě signálu je 
třeba nastavit větší amplitudu. 

Pak nastavíme rezistorem R16 po- 
mocí osciloskopu vzorkovací úroveň 
tak, aby na výstupu komparátoru syn- 
chronizačních impulsu byly tyto impul- 
sy stabilní, ale přitom nedocházelo ke 
vzniku falešných impujsů. Zkontroluje- 
me průběhy signálů H, V a V, které 
musí odpovídat průběhům na obr. 4. 
Pak zkontrolujeme a nastavíme pro- 
měnnými rezistory R21 a R23 signál GO 
a GO. Při nastavování se orientujeme 
podle měřicího řádku. Pro tyto prácé je 
vhodný dvoukanálový osciloskop nebo 
alespoň osciloskop s možností externí 
synchronizace. Při nastavování signálu 
GO osciloskop synchronizujeme sig- 
nálem V. Při nastavování je třeba vzít 
v úvahu, že mohou být zobrazovány 
sudé i liché půlsnímky, které jsou 
navzájem o půl řádku posunuty. Z toho 
plyne, že všechny signály spjaté 
s řádkovými synchronizačními impulsy 
se mohou zobrazovat ve dvou pozicích. 
Naopak signál GO, který je odvozen od 
snímkových synchronizačních impulsů, 
musí být naprosto stabilní a musí být 
nastaven s jistým přesahem tak, aby 
překrýval výskyt teletextových řádků 
v sudém i lichém půlsnímku. Je vhodné 
nastavit šířku aktivního signálu GO 
podle skutečně vysílaných teletexto- 
vých řádků. V případě příjmu více 
různých systémů se nastaví šířka GO 
podle nejrozsáhlejšího z nich. 

Pro přenos teletextu mohou být 
obecně použity řádky č. 7 až 22 (resp. 
320 až 335). Cs. televize využívá zatím 
řádky č. 19, 20 (332, 333). Měřicí řádek 
má č. 17 (330). 

Oscilátor hodin předem naladíme (s 
kontrolou čítačem) tak, aby volně kmi- 
tal na kmitočtu asi 7 MHz. Pro nastave- 
ní je třeba odpojit signál GO od vstupu 
č. 3 obvodu 106, nepřipojovat videosig- 
nál, aby nedocházelo k tvarování syn- 
chronizačních impulsů (signál SYNCH) 
a čítač připojit na vývod č. 8 nebo 12 
obvodu 106. ' 

Jestliže máme předběžně nastavený 
oscilátor hodin, připojíme osciloskop 
na signál WE (osciloskop synchronizu- 
jeme signálem GO) a proměnným 
rezistorem R13 se snažíme nastavit 
takovou vzorkovací úroveň pro kompa- 
rátor dat, aby průběh signálu WE 
odpovídal průběhu na obr. 4 a byl 
stabilní. Můžeme si pomoci i jemným 
doladěním oscilátoru a doladěním tv 
přijímače, ze kterého získáváme video- 
signái (viz část „Podmínky dobrého 
příjmu"). Počet impulsů signálu WE 
musí odpovídat počtu přítomných tele- 
textových řádků. Dále se mohou nepra- 
videlně vyskytnout i falešné impulsy 
odpovídající řádkům se synchroni- 
začními impulsy soustavy SECAM nebo 
měřicímu řádku. 

Nakonec nastavíme pomocí proměn- 
ného rezistoru R32 zpoždění signálu WE 
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na dobu o něco delší než je doba trvání 
jednoho půlsnímku, tzn., že při přítom- 
nosti teletextových dat bude na vývodu 
č. 5 obvodu 1021 trvale log. 1. Dioda D5 
pak indikuje přítomnost teletextových 
řádků. 

Tím je předběžné nastavení ukonče- 
no. Je možné ještě zkontrolovat, zda 
v průběhu aktivního signálu WE čítají 
čítače 108 a 1016, 1017 a 1018, a zda po 
skončení impulsu GQ je v 1021 vytvá- 
řen impuls (signál INT; viz obr. 4). Dále 
je možné vhodným osciloskopem nebo 
log. analyzátorem zkontrolovat prů- 
běhy signálu podle obr. 5. Při použiti 
dobrých součástek by však mělo být 
vše v pořádku. 

Další nastavení se provádí pomocí 
mikropočítače. Pro ověření činnosti 
adaptéru slouží v příloze 1 uvedený 
program v BASICu a rutina ve strojo- 
vém kódu. Jsou určeny pro mikropo- 
čítač ZX Spectrum, lze je však snadno 
upravit i pro jiné počítače. Při úpravě je 
především nutné přeadresování vstup- 
ních a výstupních portů obvodu 8255A 
podle daného počítače. 

Propojení adaptéru a interfejsu 
s obvodem 8255A je uvedeno v tabulce 
obr. 6. 
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Obr. 6. Propojení adaptéru s mikropo- 
čítačem pomocí obvodu 8255 


Rutina ve strojovém kódu jednorázo- 
vě přečte obsah vyrovnávací paměti 
a ukládá jej do operační paměti od 
adresy 8032 (hex). Přečte 512 bajtů, 
tzn. celou vyrovnávací paměť (448 
bajtů) a pak dalších 64 bajtů, které už 
nejsou maskovány. Přečtené údaje se 
pak zobrazí pomocí programu napsa- 
ného v BASICu. 

Po spuštění programu a pak po 
každém stisknutí libovolné klávesy je 
na obrazovku jednorázově vypsán ob- 
sah všech 448 bajtů vyrovnávací pa- 
měti. Nejprve jsou vypisovány zamas- 
kované bajty, na konci jsou pak vypsá- 
ny teletextové řádky včetně tří bajtů 
obsahujících rámcový kód, číslo maga- 
zínu a číslo řádku. Zamaskované bajty 
jsou na Spectru zobrazovány jako (c), 
rámcový kód jako apostrof. Za rámco- 
vým kódem následují dva adresovací 
bajty, pak dalších 40 znakových bajtů 
teletextového řádku a na konci jsou dva 
nebo tři nulové bajty. Protože většina 
kódů pro přenos alfanumerických tele- 
textových znaků se shoduje s kódem 
ISO-7 (ASCII), měly by být některé 
řádky čitelné (nebo alespoň jejich za- 
čátek). Měla by se zobrazit i záhlaví 
některých stránek. Řídicí znaky ze 
sloupce O a 1 tabulky GO se zobrazí 
inverzně. Řádky, které přenáší grafické 
znaky nebo doplňkové informace, se 


samozřejmě zobrazí pomocí ASCII zna- 
ků tak, že nebudou, dávat smysl. Dáte 
zkontrolujeme, zda první platný řádek 
ve vyrovnávací paměti začíná rámco- 
vým kódem (apostrof). Pokud tomu tak 
není, lze provést následující úpravu 
zapojení: vývod č. 5 1014 odpojíme od 
vývodu č. 2 109 a připojíme jej k vývodu 
č. 4 109. 

Pokud se budou zobrazovat stále 
pouze nečitelné řádky, je třeba hledat 
chybu v adaptéru. Ze zobrazovaných 
znaků je možné např. usoudit, zda se 
přenáší správně všechny bity DO až D7, 
zda funguje maskování paměti atd. 

Konečné nastavení provádíme s pro- 
gramem TELETEXT. Pokud se při 
použití testovacího programu podařilo 
načítat alespoň začátky některých řád- 
ků, mělo by být možné po spuštění 
programu TELETEXT načíst teletextové 
testovací stránky (v českém vysílání 
magazín č. 8, ve slovenském č. 3). 

Nejprve opakovaně načítáme strán- 
ku s názvem ZKOUŠKA SYNCHRONI- 
ZACE DEKODÉRU a nastavíme přesně 
kmitočet hodin, případně úroveň vzor- 
kování dat. Pak opakovaně načítáme 
stránku OPTIMÁLNÍ SYNCHRONIZACE 
DEKODÉRU a pokud je třeba, dosta- 
víme úroveň vzorkování dat, případně 
ještě jemně doladíme kmitočet hodin. 
Nakonec načteme stránku ZKUŠEBNÍ 
OBRAZEC TELETEXT a zkontrolujeme 
zobrazování všech znaků, módů zobra- 
zení a činnost všech funkcí. 

Pokud je vše v pořádku, můžeme se 
pokusit zmenšovat zesílení vstupního 
zesilovače (R5) a přitom jemně doladit 
nastavení komparátorů (R26, R13). čím 
kvalitnější je signál, tím menší zesílení 
můžeme nastavit. (Zpracováním sig- 
nálu s nízkou úrovní se dále sníží 
nepříznivý vliv změn středního jasu 
a kolísání úrovně videosignálu na 
správnost dekódováni.) Optimální am- 
plituda signálu na rezistorech R7 a R8 
je asi 3 V, záleží však na zdroji signálu. 
V některých případech může dávat 
lepší výsledky i amplituda 5 V. 

Při dálkovém příjmu můžeme dále 
nahradit kondenzátory C16 a Cl 6’ 
otočným kondenzátorem o kapacitě asi 
500 pF a pokusit se při opakovaném 
načítání zkušebních stránek nastavit 
příjem s co nejmenším počtem chyb. 


Konstrukční řešení 


Celý adaptér včetně zdroje byl posta- 
ven na univerzální desce. Spoje byty 
vedeny vodičem se samopájitelnou 
izolací. Rozložení součástek není kritic- 
ké s výjimkou vlastního sériově-para- 
lelního převodníku a generátoru hodin. 
Tyto obvody, tj. 105, 106, 107 a 1010 je 
vhodné umístit co nejblíže k sobě. Dále 
je třeba napájet tyto obvody z jednoho 
uzlu a tento uzel blokovat tantalovým 
kondenzátorem 4,7 j*F. 

U všech 10 byl do napájení zapojen 
blokovací kondenzátor 68 nF (100 nF), 
u 102 byly připojeny na kladnou 
i zápornou větev napájení. 

Jako LI byly používány neupravova- 
né cívky ze zvukových mf modulů čs. 
televizorů. Přesný počet závitů není 
kritický, hrubě je možné oscilátor dola- 
dit změnou kapacity kondenzátorů C21 
a C22. Poměr C22/C21 by měl být 
přibližně 1,5. 

Diody D2 a D3 byly použity z toho 
důvodu, že při experimentálním ověřo- 
vání byl generovaný signál GO stabil- 
nější, než při použití zapojení bez 
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Příloha 1 těchto diod. Jako C13 a C15 je vhodné 

Testovací program v BASICu a rutina pro přečtení obsahu vyrovnávací paměti použít stabilní kondenzátory, není to 

však nutná podmínka. 

Předepsané typy 10 řady 74ALS, 74S 
a 74 musí být dodrženy u 103, 106 
a 1015. Na místě 105 je možné použít 
typ 7403. U ostatních obvodů lze použít 
řadu 74S i 74. Při použití typů 74 
současně na pozicích 109, 1010, 101 
a 1014 může dojít vzhledem k velkému 
zpoždění k chybné funkcí sériově- 
paraleiního převodníku. V tomto přípa- 
dě je možné přímo propojit vývod 
č. 8 1010 s vývodem Č. 10 1014. Pak 
je adaptér schopen pracovat spolehlivě 
i s těmito obvody, ale za určitých 
okolností může být dekodér náchyl- 
nější k výskytu chybných řádků. 

Adaptér je s mikropočítačem propo- 
jen třináctižilovým plochým vodičem 
délky asi 35 cm. Videosignál z tv při- 
jímače je přiveden stíněným nf kab- 
líkem délky asi 1 m. 
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1 REM LOAO **COO£ 32768,100 
5 RANDOHIZE USR 32768 
10 RANDOHIZE USR 32791 
20 LET i =32818 
35 aS *. GO SUB 1000 
90 IF INKEY$=" THEN GO TO 90 
100 GO TO 10 

999 STOP 

1000 FOR j=i TO i +447 
1010 LET a=P£EK j 

1012 IF (a=39) AND <j<=i+446) THEN PRINT 
1018 IF a>=128 THEN LET a=a-128 
1020 IF a>=32 THEN PRINT CHR$ (a)} 

1030 IF a<32 THEN PAPER 0: INK 7: PRINT CHR*(a+64);: PAPER 7: INK 0 
1040 NEXT j 
1050 RETURN 


,z80 ; use z80 cpu 




.phase 

8000h 

i origin for ZX-Spectrua 



5 teletext test prograa 




; i/o port assignaents 




: pa - data froa teletext 




; pcO - /go signál froa teletext 



; pc7 - enable signál to teletext 



; prograa eguates 


001F 


pa egu 

lfh 

j pio port a 

005F 


pc egu 

5fh 

; pio port b 

007F 


cr egu 

7fh 

; pio control register 

0093 


cw egu 

10010011b 

} control word for pio 

OOOF 


enbll egu 

00001111b 

; enable=l coaaand 

OOOE 


enblO egu 

000011 10b 

; enable=0 coaaand 



; startup proceduře - ppi initialization 

8000 


init: 



8000 

3E 93 

ld 

a, cm 

} send control word to ppi 

8002 

D3 7F 

cut 

(cr),a 


8004 

3E OE 

ld 

a, enblO 

; and reset enable signál 

8006 

03 7F 

out 

(cr),a 


8008 

18 OD 

jr 

aain 

; juap to aain prograa 



; waiting For go signál 


800A 


waitgo: 



800A 

DB 5F 

in 

a,(pc) 

j check go bit 

8000 

C8 47 

bit 

0,a 

; active in low 

80QE 

20 FA 

jr 

nz, waitgo 

; go not found 

8010 


waitgcl: 



8010 

OB 5F 

in 

a,lpc> 

; check go bit again 

8012 

C8 47 

bit 

0,a 

; now active in high 

8014 

28 FA 

jr 

z,waitgol 

{ go active - wait 

9016 

C9 

ret 


; retům to caller 



; get the teletext lineš to buřfer 

8017 


aain: 



8017 

F3 

di 


; disable interrupts 

8018 

CD 800A 

call 

waitgo 

; waiting for go signál is finished 

801B 

3E OF 

ld 

a, enbll 

; set enable signál to 1 

801D 

B3 7F 

out 

<cr),a 


80IF 

01 001F 

ld 

bc,pa 

; port base address+256* * of byt es (*256) 

8022 

21 8032 

ld 

hl,bufřer 

; store area for data 

8025 

ED B2 

inir 


; get data froa decoder 

8027 

01 001F 

ld 

bc,pa 

; port base address+256* • of bytes 

802A 

E0 B2 

inir 


; get data froa decoder 

8020 

3E 0E 

ld 

a, enblO 

; reset enable signál 

802E 

D3 7F 

out 

(cr),a 


8030 

FB 

ei 


; enable interrupts 

8031 

C9 

ret 


; return to basic 

8032 


buffersdefs 

512 

j buffer area 


end 


Podmínky dobrého příjmu 

Pro dobrý příjem teletextu je nutné 
splnění těchto dvou základních před- 
pokladů: 

a) Vhodný televizní přijímač, ze kterého 
získáváme videosignál pro zpraco- 
vání v adaptéru. 

b) Dokonalý příjem příslušného tv vy- 
sílače. 

Pod označením vhodný přijímač je 
myšlen především přijímač pro barev- 
ný obraz. V některých případech lze 
použít i dobře seřízený černobílý při- 
jímač, pokud má vstupní díl a obrazo- 
vou mezifrekcenci zapojeny obdobně 
jako barevné přijímače. To znamená,, 
že vhodné jsou ty čs. přijímače, které 
mají obrazovou mezifrekvenci osaze- 
nou integrovaným obvodem A240D 
nebo A241D. Zahraniční televizory, za- 
pojené obdobně, budou patrně také 
vhodné, nebyly však autory vyzkouše- 
ny. Rozhodně se nehodí starší typy 
televizorů, které mají obrazovou mezi- 
frekvenci osazenou tranzistory nebo 
dokonce elektronkami. 

Pokud je napájení televizoru řešeno 
bez galvanického oddělení od sítě, je 
nutný oddělovací transformátor. 

Videosignál lze získat burf ze stan- 
dardního vídeovýstupu některých tv 
přijímačů (Oráván, Mánes, Aleš) nebo 
je nutné výstup do tv přijímače doplnit. 
Pokud není zaručen dokonalý příjem 
nebo jde o dálkový příjem zahraničních 
vysílačů, pracujících v normě CCIR- 
B a CC1R-G, je zvláštní videovýstup 
nutný vždy. 



tlacrosj 


Obr. 7. Zapojení vídeovýstupu 


Spbois: 

8032 BUFFER 

007F 

CR 

0093 

CW 

OOOE 

ENBLO 

OOOF 

ENBL1 

8000 

INIT 

8017 

HAIN 

001F 

PA 

005F 

PC 

800A 

UňlTGO 

8010 

HAITG01 




Jednoduché, ale osvědčené zapojeni 
vídeovýstupu je na obr. 7, Toto zapoje- 
ní bylo úspěšně vyzkoušeno u televizo- 
rů Oráván, Merkur a Pluto. Pro vyvede- 


no Fata! error(s) 
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ní signálu na zadní panel televizoru je 
použito nestíněné lanko. 

Pro dobrý příjem je dále nutné 
přesné naladění tv přijímače. Hrubě 
naladíme přijímač podle svitu diody D5, 
jemně doladíme podle zobrazovaného 
času (číslice nesmí vypadávat) a pak 
při opakovaném zobrazení některé 
zkušební stránky. Optimální naladění 
se nemusí shodovat s optimálním nala- 
děním obrazu. Pokud televizor nemá 
vyvedeno dolaďování AFC, je v někte- 
rých případech nutné AFC vypnout 
(většinou otevřením dvířek předvolby 
nebo tlačítkem). 

Další podmínkou pro příjem teletextu 
je, stejně jako v případě standardních 
dekodérů, dokonalý příjem příslušného 
tv vysílače. Příjem musí být bez duchů, 
barevný obraz nesmí sněžit a nesmí 
obsahovat rušivé moaré. V případě 
snížených nároků je možné připustit 
i částečně zhoršený signál, možnost 
příjmu je třeba ověřit. V tomto případě 
je však nezbytně nutné doplnit do 
televizoru zvláštní videovýstup. 

Pro informaci jsou uvedeny dva 
případy, kde bylo dosaženo vyhovu- 
jícího příjmu teletextu i za zhoršených 
podmínek: 

a) sněžení barevného obrazu na hranici 
pozorovatelnosti, slabé moaré, 
obraz ostrý bez „duchů“, 

b) barevný obraz bez pozorovatelného 
sněžení, zřetelné moaré, obraz mír- 
ně znehodnocený „duchy". 

V těchto případech mohou čas od 
času vypadnout některé znaky nebo 
i celé řádky. 

Silné zarušení obrazu „duchy" může 
způsobovat systematické chyby v zo- 
brazování. Na určité stránce např. 
dochází ke stále stejné chybě, na jiných 
stránkách se chyby nemusí projevit. 

Silné sněžení a silné moaré v obraze 
většinou úplně znemožní příjem. 

Systém je principiálně nejcitlivější na 
impulsní rušení (komutátorové motorky 
atp.). Toto rušení způsobuje vypa- 
dávání znaků, řádků, skupin řádků 
a dokonce i celých stránek. Způso- 
buje i načtení falešných stránek, 
případně může zcela znemožnit příjem. 
I rušení, které v obraze není takřka 
postřehnutelné, se projevuje tímto 
způsobem. Většinou jde o rušení širo- 
kopásmové, lze je tedy identifikovat 
tak, že televizor přepneme na některý 
obsazený kanál I. a li. pásma případně 
některý nižší kanál III. pásma, kde se 
pak toto rušení projevuje výrazněji. 
Jediným řešením je odstranění zdroje 
rušení. Je možné pokusit se ještě 

0 příjem vhodného vysílače na někte- 
rém kanálu v V. pásmu, kde je vliv 
rušení většinou menší. 

Při příjmu může samozřejmě rušit 

1 vlastní mikropočítač (jak bylo popsá- 
no v části „Navrhované řešení"). 

Závěr 

Během přípravy článku došlo k ná- 
sledujícím změnám: 

a) Byla vytvořena nová verze programu 
TELETEXT (verze 2.4), která od- 
straňuje některé nedostatky verze 
1 .9 a je rozšířena o další funkce. 

b) Pro dosažení kompatibility ZX Spec- 
tra a Dodaktiku Gama je nutné pro 
program TELETEXT v. 2.4 připojit 
signál GO n^ bit PC2 (původně PCO), 
tj. na vývod 16 (původně na 14) 
obvodu 8255A. Pro ostatní počítače 
platí tabulka na obr. 6 beze změn. 

c) Československá televize vysílá od 
9. 1. 1989 teletext v řádcích č. 7, 8, 


19, 20 (320, 321, 332, 333). Aby bylo 
možné nastavit potřebnou šířku sig- 
nálu GO, je nutné zkratovat rezistor 
R20 a případně ke kondenzátoru Cl 5 
připojit paralelně kondenzátor s ka- 
pacitou 33 nF. Ostatní součástky zů- 
stávají beze změn. 

d) Bylo zjištěno, že zesilovače STA 
mohou omezit tv signál natolik, že 
i při zdánlivě perfektním obrazu je 
příjem teletextu vyloučen. 


Seznam součástek 

Integrované obvody: 

102 

UCY75107PC 

104, 1021 

UCY74123N 

1011 

MHB8282 

107 

MH74164, MH74164S 

1019, 1020 

MHB2114 

1016, 1017, 


1018 

MH7493A 

108 

MH7490A 

1015 

MH74ALS00 

lOI, 1012, 


1013, 1014 

MH74ALS00, MH74S00, 


MH7400 

103 

MH74SQ0 

106 

MH7410 

1022 

MH74ALS10, MH74S10, 


MH7410 

105 

MH74S03, MH7403 

1010 

MH74ALS30, MH74S30, 


MH7430 

109 

MH74ALS04, MH74S04, 


MH7404 

10101 

MA7805 

Tranzistory: 


TI, T3, T3' 


T4, T5 

KC509 (KC508) 

T7 

KC507 

T2, T6 

BC179 (BC178) 

TI 01 

KF517 (KFY16, KFY18) 

Diody: 


Dl— D4 

KA206 

D101 — D104 

KY 132/80 

Dl 05 

KZ260/5V6 

D5 

LQ1732 

Dl 06 

LQ1432 

Keramické kondenzátory: 

Cl 7, C18 

47/TK754, 774, 794 

C23 

56/TK754, 774, 794 

C9, Cl 6' 

1 50/TK794, 754, 774 

C16 

220/TK794, 754, 774 

C24 

470/TK794, 774 

C6 

820/TK724, 794 

CIO, C49 

1nO/TK744, 724, 794 

C7 

4n7/TK783, 764, 744, 764 

C5, C14 

10n/TK783, 764 

Cil, C48, 


Cl 2 

22n/TK783, 764 

Cl'. C8, C19, 


C20, C27 — C46, 

Cl 03, Cl 04 

100n/TK783, 782 

Svitkové kondenzátory: 

C13 

68n/TC215 — 219 

C15 

100n/TC215 — 219 

C21 

470/TGL51 55— A470/ 


/10/63 

C22 

680/TG L5 1 55 — A680/ 


/10/63 

Elektrolyt, kondenzátory (tantal.): 

C4, C25, 


C26 

4 jí7/TE131 — 135 

Cl, C2, C3 

22 H/TE131— 135 

Elektrolyt, kondenzátory 

Cl 01, Cl 02 

1G/TE 984 

Cl 05 

100 u/TF 009 


Rezistory TR 212 
R6 

R4, R33, 

R102 
R9, R18, 

R19 

R24, R25, R26, 
R27, R29, 

R36 
R7, R8 


R3. R10, R12, 
R28, R31, 
R34, R35 

1K2 - 

R17 

3K3 

R15, 

R37 — R44 

4K7 

R2 

5K6 

R1, R33 

18K 

R20, R22 

22K 

R14 

100K 

R11 

220K 

Rezistory TR 214: 

R101 

220 

Odporové trimry TP 041 

R13, R16, 

R5 

1K0 

R21, R23 

33K 

R32 

47K 

Konektory 

K2 

FRB TY5173211 

Trafo 

TR101 

220 V/2x8 až 9 V, 0,5 A 

Ostatní materiál 

LI 

cívka dle textu (6 PK 855 
79,80) 

S101 

síťový vypínač 

PolOI 

50mA/250V 

1 ks 

deska plošných spojů 

1 ks 

chladič pro MA7805 

1 ks 

síťová šňůra 

1 ks 

propojovací šňůra pro 
video 

1 ks 

propojovací šňůra pro 
interface 

1 ks 

pojistkové pouzdro 
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TELETEXT 


íng. Lumir Přibyl, Pavel Brychta, 

V. Noska 67,644 11 Zbý&ov 

Popis systému WST úrovně 1.5 


1. Základní technické informace 


l.t TELETEXT je systém přenosu informací, který 
umožňuje přenášet stránky tvořené textem 
a grafickými symboly. Teletextový signál se 
přenáší v dosud nevyužitých řádcích půl- 
snímkového intervalu. Pokud není teletext 
doplňkem televizního obrazového signálu, je 
možný přenos signálu teletextu v libovolných tv 
řádcích. 

1.2 Dekódované stránky se zobrazí buď samo- 
statné (tj. místo přijímaného televizního obra- 
zu), nebo mohou být prolnuty (resp. vloženy) 
přímo do televizního obrazu. Do televizního 
obrazu mohou být také vloženy titulky nebo 
zpravodajské vstupy. Pozn.: Při prolnutí jsou tv 
obraz a příslušná stránka zobrazeny současné 
přes sebe, při vložení se vytvoří v obrazu okno, 
ve kterém je zobrazena příslušná část stránky. 

1.3 Každý datový řádek teletextu přenáší binární 
signál rychlostí 6,9375 Mblt/s. Tento systém 
přenosu lze využít v televizních systémech typu 
625/50 s šířkou pásma pro přenos videosig- 
nálu min. 5,0 MHz. 

1.4 Každý datový řádek přenáší informaci pro 
synchronizaci dat, informaci pro určení adresy 
a kódy pro řádek, který má 40 znaků. 

1.5 Na stránce lze zobrazit až 25 řádků po 40 
znacích, včetné zvláštního úvodního řádku, 
který se nazývá záhlaví, a posledního 
25. řádku, který se zobrazí pouze za urči- 
tých podmínek (viz odst 3.4.4.2). 

1.6 Záhlaví obsahuje přídavné adresovací a řídící 
údaje, které jsou přenášeny místo kódů prv- 
ních osmi znaků. Tyto údaje umožňují identifi- 
kovat stránku a dále řídí způsob jejího zobraze- 
ní. Posledních osm znaků ze zbývajících 32 je 
vyhrazeno pro zobrazení reálného času. 

1.7 Přenos adresových a řídicích bajtů využívá 
ochrany pomoci osmibitového Hsmmingova 
kódu. Tak lze v jednom bajtu přenést čtyři 
informační bity, přičemž jednoduché chyby' 
jsou v přijímači opraveny. (Jednoduchá chyba 
znamená, že v jednom bajtu je z osmi bitů 
jeden chybný). Pro přenos kódů znaků je 
použito ochrany lichou paritou (sedm bitů je 
informačních, jeden bit je paritní), která 
umožňuje identifikovat jednoduché chyby. 

1.8 ňádky, které obsahují pouze mezery, nemusí 
být přenášeny. 

1.9 Lze přenášet až osm souborů stránek 
— magazínů, každý může obsahovat až 100 
stránek. 

1.10 Lze přenášet až 3200 variant každé stránky. 
Varianty jsou rozlišeny čtyřmístným sub- 
kódem v záhlaví stránky (viz odst. 3.1 .2 a 3. 1 .3). 

1.11 Kromě alfanumerických a grafických znaků 
se přenáší ještě řídicí znaky, které slouží mimo 
jiné pro následující funkce: 



Obr. 1. Umístění teletextových 
datových řádků 
v televizním signálu 


Obr. 2. Úroveň signálu 
(čísla teletextových řádků 
nesouhlasí se skutečným 
umístěním v signálu CŠT) 



referenční 
místo řádkové 
periody 


řádkový 

synchron. 

impuls 



Obr. 3. Synchronizace dat 
(místo „referenční místo řádkové periody** patří 
-referenční místo tv řádků**) 

a) volba jedné z osmi barev znaků, 

b) volba jedné z osmi barev pozadí. 

c) zobrazení znaků s dvojnásobnou výškou, 

d) blikání učítých znaků, 

e) skrytí určitých znaků, které mohou být 
uživatelem zviditelněny. 

»• iwwwiw# oavm rsoRy 

2.1 Televizní obrazový signál obsahuje v oblasti 
půlsnímkového zatemňovacího intervalu (viz 
obr. 1) řádky číslo 7 až 22 (resp. 320 až 335). 
Tyto řádky jsou využívány pro různé účely. 
Některé z těchto řádků byty dosud volné a lze 
je využít pro přenos teletextových datových 
řádků. V případě CST se jedná o řádky číslo 
19, 20 (332,333). Obecně je možné využít 
libovolných volných řádků. 


2.2 Obrazový řádek je identifikován jako teletex- 
tový datový řádek přítomnosti signálu pro 
synchronizaci hodin (viz odst 2.9), po kterém 
následuje tzv. rámcový kód (viz odst. 2.10). 

2.3 Teletextový řádek přenáší binární symboly 
(bity) ve formě signálu o dvou úrovních typu 
NRZ (Non-Retum-to-Zero), vhodně tvarované 
pomocí filtru. 

2.4 Úroveň signálu je taková, že logické nule 
odpovídá úroveň černé 0±2 % a logické jed- 
ničce odpovídá 66 (± 6) % z rozdílu mezi úrovni 
bílé a černé (viz obr. 2). Rozhodovací úroveň 
leží uprostřed mezi úrovní log. nuly a log. 
jedničky. Tato rozhodovací úroveň se může 
měnit řádek po řádku. 

2.5 Bitová rychlost přenosu je 444x f„, kde f M je 
řádkový kmitočet Bitová rychlost přenosu je 
tedy 6,9375 Mbit/s (± 25.10*). 

2.6 Referenčním místem pro časování dat je 
předposlední logická jednička ve sledu impul- 
sů pro synchronizaci hodin (viz obr. 3). 
Referenční místo televizního řádku je v polovi- 
ně amplitudy ná běžné hrany řádkového syn- 
chronizačního impulsu. Referenční místo pro 
časování dat v signálu na výstupu vysilače 
distribuční sítě je zpožděno oproti refe- 
renčnímu místu televizního řádku o 12,0 + 0,4 
— 1,0 i»s. 

2.7 Spektrum signálu dat je asymetrické 
s inftexním bodem u kmitočtu, který odpovídá 
poloviční bitové rychlosti. Nad kmitočtem 
5,0 MHz má spektrum prakticky nulovou hod- 
notu. viz obr. 4 a 5. 
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Obr. 4. Přibližné spektrum impulsu dat 
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X -hodnoto, těchto bitů závtsi na č&e 
magazínu a čísle řádku 


Obr. 6. Průchod dat posuvným registrem 


2.8 Datový řádek teletextu obsahuje 360 bitů. 
které tvoři 45 bajtů. První tři bajty máji sudou 
paritu a slouží pro synchronizaci přijímače. 
Zbývajících 42 bajtů má lichou paritu a přenáší 
adresu, řidiči kódy a kódy znaků pro jeden 
řádek. Adresa a řidiči kódy jsou zabezpečeny 
Hammingovým kódem. 

2.9 První dva bajty každého datového řádku jsou 
tvořený posloupností jedniček a nul 
(101010 . . 4, indikuji přítomnost datového řád- 
ku a určuji časováni bitů v datovém řádku. 
V některých případech mohou chybět v prvním 
bajtti první dvd log. jedničky. 

2.10 Třetí bajt každého datového řádku obsahuje 
tzv. rámcový kód (11100100). Tento kód slouží 
k synchronizaci jednotlivých bajtů v příslušném 
datovém řádku při dekódování. Lze ho identifi- 
kovat i v případě, to jeden jeho bit byl chybné 
přijat. Obr. 6 ukazuje průchod dat posuvným 
registrem a jejich srovnáni se vzorem rámco- 
vého kódu. Je zřejmé, to pro spolehlivé určeni 
přítomnosti rámcového kódu stačí, aby souhla- 
silo nejméně 7 bitů. 

2.11 Čtvrtý a pátý bajt každého datového řádku, 
dalších osm bajtů v záhlaví stránky (řádek 0) 
a všechny bajty přenášené v paketech 26 a 27, 
jsou chráněny pomoci Hammingova kódu. 

2.12 Zbývající bajty v každém datovém řádku 
přenáší kódy znaků. Bajt pro přenos znaku 
obsahuje 7 bitů určuiícfch znak (viz obr. 15 
Tabulka GO) a osmý bit pro zabezpečeni lichou 
paritou. Nejdříve se přenáší bit s nejnižší vahou 
(LS8). 


3. Uspořádáni stránek a řádků 

3.1 Adresováni 

3.1.1 Každý datový řádek obsahuje dva bajty 
chráněné Hammingovým kódem, z nichž tři 
bity určuji číslo magazínu a pět bitů čisto řádku 
(obr. 7). čisto magazínu může být v rozmezí 
1 až 8, magazín č. 8 odpovídá adrese 000, 
ostatní odpovídají váze bitu podle obr. 7. Číslo 
řádku může být v rozmez! 0 až 31. V ČSSR se 
využívá řádků č. 0 až 23, dále 24, 26. 27 a 30. 
(Všechny teletextové datové řádky jsou vlastně 
datové pakety. V literatuře se většinou užívá 
názvu řádek pro datové řádky s čísly 0 až 23 
a názvu paket pro datové řádky s čísly 24 až 31). 
Adresa řádku odpovídá přímo váze bitů podle 
obr. 7. 

3.1.2 Datové řádky s řádkovou adresou 0 jsou 
tzv. záhlaví. Obsahuji navíc dalších osm bajtů 
chráněných Hammingovým kódem, které ob- 
sahuji informační bity vztahující se k příslušné 
stránce včetně dvoumístného čísla stránky 
a čtyřmístného sub-kódu (viz obr. 7). Význam 
ostatních přenášených bitů je popsán v odstav- 
ci 3.3.5. 

3.1.3 Každá strana je určena jednomístným 
číslem magazínu (1 až 8) a dvoumístným 
číslem stránky (00 až 99). Stránky se stejným 
číslem magazínu a stejným číslem stránky 
mohou být dále rozlišeny čtyřmístným sub- 
kódem. To umožňuje přenášet až 3200 variant 
jedné stránky. Tento sub-kód byl původně 
určen k označeni času vyslání stránky. Proto se 
také nazývá časový kód a jeho struktura tomu 
odpovídá. Kód je rozdělen na „hodiny" (00 až 
39) a „minuty" (00 až 79). V současné době se 
využívá maximálně 50 variant jedné stránky. 
Sub-kód těchto tzv. pod stránek je v rozmezí 
00 00 až 00 50. 

3.1.4 Stránka může být vybrána podle čísla 
magazínu a čísla stránky nebo podle čísla 
magazínu, čísla stránky a sub-kódu. 
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3.2 Vysílací pořad 

3.2.1 Vysílání vybrané stránky začíná přenosem 
záhlaví dané stránky (patři k dané stránce) 
a konči přenosem záhlaví následující stránky. 
Všechny datové řádky přenesené mezi těmito 
záhlavími a mající stejné čisto magazínu jako 
záhlaví vybrané stránky patří k této vybrané 
stránce. Stránky mohou být vysílány v libovol- 
ném pořadí. Mohou být přenášeny i nekom- 
pletní stránky. Mohou být proloženy datové 
řádky s jiným číslem magazínu. 

3.2.2 Datové řádky patřící k dané stránce mohou 
být vysílány v libovolném pořadí. Aby byla 
zabezpečena co nejúčinnéjáí funkce dekodérů, 
doporučuje se hned po záhlaví přenášet paket 
27 a pak pakety 26. Datové řádky včetně 
záhlaví se mohou opakovat, přičemž za platný 

. se považuje poslední bezchybný výskyt pří- 
slušného datového řádku. Datové řádky, které 
obsahuji pouze mezery, nemusí být přenášeny. 

3.2.3 Datové řádky jsou vysílány tak, aby byla 
vytvořená časová prodleva 20 ms (pro vyma- 
záni stránkové paměti některých dekodérů) 
mezi vystáním záhlaví a vysíláním následu- 
jících datových řádků. 


3.3 ZáMavi 

3.3.1 Cisto stránky, sub-kód stránky a informace 
nutné pro zobrazení stránky jsou přenášeny 
v tzv. záhlaví (řádek O). 

3.3.2 Synchronizace bitů. bajtů a adresováni se 
provádí v 1. až 5. bajtů viz odst. 2.9, 2.10 a 3.1. 

3.3.3 Prvních osm bajtů datového řádku přenáše- 
jícího záhlaví (tj. 6. až 13. bajt) je chráněno 
Hammingovým kódem viz obr. 7. Tyto bajty 
obsahuji informační bity vztahující se k pří- 
slušné stránce včetně dvoučiselnóho čísla 
stránky a čtyřiseíného sub-kódu. Dále záhlaví 
obsahuje 32 kódů, ve kterých se přenáší 
záhlaví stránky určené pro zobrazeni, tj. čisto 
magazínu a stránky, datum, název informační 
služby atd. Posledních osm znaků je vyhrazeno 
pro zobrazeni reálného času. Příklady uspo- 
řádání záhlaví jsou na obr, 9. 

3.3.4 V 6. a 7. bajtu se přenáší čisto stránky. V 8., 
9., 10. a 11. bajtu se přenáší sub-kód stránky. 
Přitom 8. bit devátého bajtu je považován za 
řídicí bit C4, a 6. bít popř. 8. bit jedenáctého 
bajtu jsou považovány za řídicí bity C5 a C6. 
ftldici bity C6 až C14 jsou přenášeny v 12. a 13. 
bajtu. Uspořádám 6. až 13. bajtu v záhlaví je na 
obr. 7. 
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Obr. 7. Formát paketů O až 24 


adresovací byte 


ochrana Hammingovým kódem 
ve všech řádcích 


d mazáni 
C5 zpravodajský vstup 
C6 titulek 
C7 potlačeni záhlaví 
C8 nová data 
C9 přerušené pořadí 
CIO zabráněni zobrazeni 
Cil pořadí magazínů 


3.3.5 ftídicf bity se považuji za aktivní, jestliže 
mají hodnotu log. 1. 

3.3.5. 1 Bit C4 je aktivní v případě, že informace 
přenášené na dané stránce jsou zcela rozdílné 
od informací přenášených předchozí stránkou 
se stejným číslem magazínu a stránky. Při 
aktivaci tohoto bitu následuje interval 20 ms 
(víz 3.2.3), než se začnou přenášet data nové 
stránkv. 

3.3.52 Bit C5 je aktivní v případě, že daná stránka 
přenáší tzv. zpravodajský vstup („newsflash"), 
který se vloží do televizního obrazu. Veškerý 
text se zobrazí v tzv. vloženém módu viz 
odst 4.2.10. 

3.3.5.3 Bit C6 je aktivní v případě, že daná 
stránka přenáší titulky. Veškerý text se opét 
zobrazí v tzv. vloženém módu viz odst. 4.2.10. 

3.3.5.4 Bit C7 je aktivní v případě, že je vhodnější 
potlačit zobrazeni záhlaví dané stránky. 

3.3.5.5 Bit C8 je aktivní v případě, když celá 
stránka nebo její část obsahuje novější infor- 
mace než předchozí stránka se stejným číslem 
magazínu a stejným číslem strany. Stránka 
přenášená s tímto aktivovaným bitem nemusí 
být kompletní, může obsahovat pouze ty řádky, 
které mají být změněny. 

3.3.5.6 Bit C9 je aktivní v případě, že daná 
stránka není v číselném pořadi ostatních 
přenášených stránek. 


3. 3. 5. 7 Bit CIO je aktivní v případě, že je 
třeba zabránit zobrazení dané stránky. 

3.3.5.8 Bit Cil je aktivní v případě, že je vhodné 
v době čekáni na navolenou stránku zobrazo- 
vat záhlaví všech magazínů a ne jenom záhlaví 
zvoleného magazínu. 

3.3.5.9 Bity C12, 13, 14 volí základní soubor 
znaků viz obr. 20. Tabulka jazykových variant. 


3.4 Paket 27 

3.4.1 V paketu (řádku) 27 je možné přenášet 
adresy tzv. sdružených stránek, které jsou 
určeny k automatickému ukládání do paměti 
dekodéru. 

3.4.2 Synchronizace bitů, bajtú a adresování se 
provádí v 1. až 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.4.3 V 6. bajtu je uložen určovací kód, který je 
chráněn Hammingovým kódem. Určovací kód 
pro aktivaci funkce sdružených stránek je 
0000. 

3.4.4. Adresování sdružených stránek. Bajty 7 až 
42 jsou uspořádány do šesti skupin po šesti 
bajtech. Každá skupina šesti bajtú definuje 
adresu sdružené stránky. Tyto skupiny jsou 
očíslovány 0 až 5 podle pořadí přenosu. Když 
se nastaví osmý bit (MSB) 43. bajtu na 
hodnotu 1 (viz odst. 3.4.4.2), jsou takto defino- 
vány sdružené stránky označené určitou bar- 
vou podle následující tabulky: 


C12 

C13 

C% 


skupina 0 „červená" 
skupina 1 „zelená" 
skupina 2 „žlutá" 
skupina 3 „modrozelená" 
skupina 4 nevyužitá 

Skupina 5 seznam (index) sdružených 
stránek 

3.4.4.1 Skupina dat pro definici sdružené stránky 
je tvořena šestí bajty, které obsahují: 


číslo vztažného magazínu 3 bity 

číslo stránky 8 bitů 

sub-kód stránky 13 bitů 

ochranné bity Hammingova kódu 24 bitů 


Pořadí bitů je na obr. 10. Nemá-li být specifiko- 
ván sub-kód stránky, bude přenášená adresa 
sub-kódu 3F7F (hex). Přenáší-li se číslo stránky 
FF (hex) a sub-kód stránky 3F7F, není specifiko- 
vána žádná stránka. Bity, přenášené jako relativ- 
ní číslo magazínu, se používají pro definici čísla 
magazínu sdružené stránky vzhledem k číslu 
magazínu v 4. bajtu paketu 27. Nastaveni 
kteréhokoli z těchto bitů na „1“ způsobí doplnění 
příslušného bitu v čísle magazínu. V praxi to 
znamená provést mezí odpovídajícími bity čísla 
magazínu paketu 27 a čísla vztažného magazínu 
log. operaci exclusive or. Výsledek je pak 
skutečné číslo magazínu sdružené stránky. 
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Obr. 9. Příklad formátu datového řádku 
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Obr. 10. Formát paketu 27 
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3.4.4.2 V bajtu 43 paketu 27 se přenáší informace 
pro řízení sdružovaci funkce. Tento bajt má 
čtyři bity dat a čtyři bity ochrany Hammingo- 
vým kódem. Když je osmý bit (MSB) nastaven 
na hodnotu 1 , znamená to, že sdružené stránky 
mají navazovat na symboly pfegášené pake- 
tem 24. Pak je červené tlačítko vždy funkční 
a pokud jsou bity 2, 4 a 6 nastaveny na hodnotu 
1, jsou funkční i tlačítka zelené, žluté- resp. 
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modrozelené. Tlačítko pro navolení seznamu 
(indexu) je vždy funkční. (Tato tlačítka jsou 
součásti ovladačů některých dekodérů). Když 
je bit 8 nastaven na 0, pak neexistuji sdružené 
stránky odpovídající barevným symbolům, 
a zamezí se zobrazení obsahu eventuálně 
přítomného paketu 24. 

3.4.5 Bajty 44 a 45 obsahují kontrolní slovo pro 
cyklickou kontrolu nadbytečnosti (CRC) dat 
v paketech 0 až 25. Způsob generování tohoto 
slova je uveden v kap. 6. 

3.5 Paket 30 

3.5.1. V paketu 30 se přenáší data, týkající se 
televizní organizace. Přenáší se přibližné jed- 


nou za sekundu s číslem magazínu 8. Formát 
paketu 30 je na obr. 11. 

3.5.2 Synchronizace bitů, bajtů a adresování se 
provádí v 1 . až 5. bajtu viz odst. 2.9, 2.10 a 3.1 . 

3.5.3 V 6. bajtu je uložen určovací kód, který je 
chráněn Hammingovým kódem. Pokud je druhý 
bit nastaven na 0, znamená to multiptexo- 
vanou funkci teletextům zatemňovacím interva- 
lu televizního obrazového signálu (viz odst. 
1.1). Pokud jsou bity 4, 6 a 8 nastaveny na 
hodnotu 0, jsou aktivní funkce popsané 
v následujících odstavcích 3.5.3. 1 až 3.5.3.6. 
Na jiné kódy systém nereaguje. 

3.5.3. 1 Bajty 7 až 12 obsahuji adresu první 
vybrané stránky, která bude uložena do paměti 


data 

' 2°2 I 2 2 2 3 ? 2 5 2 6 



dekodéru bez zásahu uživatele a je pak kdykoli 
zobrazitelná pomocí tlačítka pro navolení se- 
znamu (indexu) (víz odst 3.4.4), pokud 
nebyla zadána jiná stránka pomoci paketu 27. 
Při načteni stránky bez paketu 27 nebo 
s nespecifikovanou stránkou pomocí skupiny 
5 (viz odst. 3.4.4) se opět načte výše uvedená 
první vybraná stránka. 

Skupina dat pro definici první vybrané stránky je 
tvořena šesti bajty, které obsahují: 


číslo magazínu 3 bity 

čisto stránky 8 bitů 

sub-kód stránky 13 bitů 

ochranné bity Hammingova kódu 24 bitů 


Pořadí bitů je na obr. 11. Nemá-li být specifiko- 
ván sub-kód stránky, bude přenášena adresa 
sub-kódu 3F7F (hex.). Přenáší-li se čisto stránky 
FF (hex.) a sub-kód stránky 3F7F, není specifiko- 
vána žádná stránka. 

3.5.3.2 Pro jednoznačnou identifikaci programo- 
vého okruhu lze použít kódu v 13. a 14 bajtu. 

3. 5.3. 3 Bajt 15 definuje v krocích po půlhodino- 
vých intervalech rozdíl mezi místním časem 
a světovým koordinovaným časem (UTC). 
Záporné hodnoty odpovídají místnímu času 
západně od Greenwiche. 

3.5.3.4 Modifikované datum juliánského kalen- 
dáře MJO se přenáší v bajtech 16 až 18. Je to 
péticiferné číslo, které se mění o půlnoci 
(podle UTC); přitom referenčnímu datu 31. 1. 
1982 odpovídá údaj MJO 45000. 

' 3. 5. 3. 5 Bajty 19 až 21 přenášejí světový koordino- 
vaný čas (UTC). Je to šesticiferné čisto, které ser 
vysílá po dobu nejbližší následující sekundy. 

3.5.3.5 Bajty 22 až 25 jsou vyhrazeny pro 
informace týkající se doprovodného televiz- 
ního programů. 

3.5.4 Od bajtu 26 až do konce paketu 30 mohou 
být vysílány obecné znaky ze základní tabulky 
G0. 

3.6 Paket 26 

3.6.1 Tento paket umožňuje rozšířit soubor 
přenášených znaků oproti souboru v tabulce 
G0 o znaky z tabulky G2 (obr. 16). Prakticky je 
to provedeno tak, že po dekódováni tohoto 
paketu se na příslušných znakových pozicích 
(v řádcích 1 až 24) zamění původní znak (z 
tabulky GO) na požadovaný znak z tabulky 
G2. Na pozicích, které mají být přepisovány, 
jsou v datových řádcích 1 až 24 vysílány 
náhradní znaky z tabulky GO tak, aby umožňo- 
valy příjem i na d ekod érech, které nedekódují 
paket 26. Např. místo písmen s diakritickými 
znaménky jsou vysílána příslušná písmena bez 
těchto znamének. 

3.6.2 Synchronizace bitů, bajtů a adresováni se 
provádí v 1. až 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.6.3 V 6. bajtu je uložen určovací kód, který je 
chráněn Hammingovým kódem. Kódy 0000 až 
1110 včetně představuji pořadová čísla paketů 
26, jejichž maximální počet je 15. Systém 
nereaguje na kód 1111. 

3.6.4 V 7. až 45. bajtu včetně se rozlišuje 13 
skupin dat po třech bajtech. 


Obr. 12. Formát paketu 26 
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Obr. 13. Příklady alfanumerických a grafických znaků 


3.6.4. 1 Ve skupině dat je kódování provedeno 
takto: 

adresa pozice znaku 8 bitů 

popis módu 5 bitů 

data určující znak z tabulky G2 
(výběr z doplňkové tabulky) 
nebo 

znak z tabulky G0 

(kompoziční kódováni) 7 bitů 

ochranné bity Hammingova kódu 6 bitů 

Pořadí bitů a uspořádání paketu 26 je na obr. 12. 

3.6.5 Adresování pozice pro znak se provádf 
pomocí šesti adresovacích bitů, které mohou 
nabývat 64 hodnot Dekadická hodnota 0 až 39 
určuje sloupec, 41 až 63 určuje řádek 1 až 23 
a hodnota 40 určuje řádek 24. Adresa pozice 
pro znak je definována explicitně skupinou dat, 
která obsahuje adresu sloupce. Informace, 
obsažená ve skupině, která definuje adresu 
řádku, se využívá u všech následujících skupin, 
definujících adresy sloupců, až do okamžiku, 
kdy přijde nová skupina s adresou řádku. První 
skupina dat musí tedy definovat adresu řádku. 
Při definici adresy řádku jsou data, přenášená 
v 3. bajtu skupiny, ingnorována. I když lze 
pozice pro znaky definovat v libovolném 
pořadí, z důvodů co nejlepšího využiti paketů 
26 se tyto pozice adresuji v pořadí zobrazováni, 
tj. zleva doprava a shora dolů. 


3.6.6 Na obr. 16 je uveden úplný soubor znaků 
pro češtinu a slovenštinu. Tvoří jej základní 
soubor (sloupce 2 až 7) a dodatečné znaky 
(sloupec 0 a 1). Dodatečné znaky se kódují 
dvojím způsobem: kompozičním kódováním 
anebo výběrem z doplňkové tabulky. 

3.6.6. 1 Znaky s diakritickými znaménky se tvoří 
složením znaku ze základní tabulky a diakritic- 
kého znaménka z doplňkové tabulky (kompo- 
ziční kódováni). Majl-ii se takovéto složené 
znaky objevit na pozici pro znak adresované 
podle odst. 3.6.5, pak bity pro popis módu 
v rozsahu od 1 0000 do 1 1 1 1 1 určují diakritické 
znaménko ze sloupce 4 doplňkové tabulky 
( obr. 16). a to v postupném číselném pořadí. 
Znak ze základní tabulky, který má být doplněn 
diakritickým znaménkem, je definován sedmi 
datovými bity. Pokud- se požaduje znak bez 
diakritického znaménka, je použito módu 

• 10000 . 

3.6.6. 2 Má-li se objevit na adresované pozici 
některý samostatný znak z doplňkové tabulky, 
nabývají bity pro popis módu hodnotu 01111. 
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Sedm datových bitů definuje znak z doplňkové 
tabulky ( obr. 16) ze sloupce 2. 3. 5. 6. 7. 

3.6.7 Jelikož může být použito vdtšiho počtu 
paketů 26 na jedné stránce, je třeba označit 
poslední paket. Toho se docílí nastavením 
všech bitů pro adresu řádku a popis módu na 
hodnotu 1 , a to ve skupině dat přenášené v 40., 
41. a 42. bajtu konečného paketu 26. Takováto 
skupina vytváří ukončovací značku. Na data 
v 42. bajtu systém nereaguje. Nevyužité skupi- 
ny dat mezi poslední aktivní skupinou 
a ukončovací značkou se vyplní opakujícími se 
daty ukončovací značky. 

3.6.8 Dva bajty, které následují za skupinou 
obsahující ukončovací značku, je možné využít 
pro cyklickou kontrolu nadbytečnosti (CRC) 
dat v paketech 26. Kontrolní slovo se vytváří 
stejným způsobem jako kontrolní slovo CRC 
v paketech 27 (viz kap. 6), ovšem za použití dat 
z paketů 26. V případě chybějícícih dat se 
předpokládá, že to jsou znaky pro mezeru. 

4. Zobrazení stránky 

4.1 Stránka zobrazená přijímačem obsahuje až 
25 řádků. 

4.1.1 Zobrazené řádkv odpovídají paketům dat 
0 až 24. Řádek 24 se zobrazí pouze tehdy, je-li 
přenášen také paket 27, a 8. bit 43. bajtu je 
nastaven na 1. Řádek 24 může obsahovat 
barevné symboly, které usnadňují přístup 
k sdruženým stránkám. Přitom může být 
využíváno příslušných barevných tlačítek na 
jednotce dálkového ovládání. 

4.1.2 Na řádku 1 až 24 je 40 míst pro znaky, na 
řádku 0 je 32 míst pro znaky. Časový přenos 
probíhá zleva doprava. 

4.2 Znaky zobrazované na řádku 0 mohou být 
všechny znaky z tabulky GO. Znaky zobrazova- 
né na řádcích 1 až 24 mohou být všechny znaky 
z tabulky GO a G2. Znaky mohou být zobrazo- 
vány v různých zobrazovacích módech. Volba 
jednotlivých módů je určena implicitně na 
začátku jednotlivých řádků, explicitně se pro- 
vádí v průběhu zobrazování řádku pomocí 
řídicích znaků ( obr. 17). Některé řídicí znaky 
mají bezprostřední účinek, jiné působí až na 
následujícím místě pro znak. Řídicí znaky jsou 
vesměs zobrazovány jako mezery v barvě 
pozadí. 

4.2.1 Barva znaků (alfanumerických i grafických) 
může být bílá, žlutá, modrozelená, zelená, 
purpurová, červená, modrá a černá. Příslušné 
dvojice řídicích znaků zároveň přepínají zobra- 
zování v alfanumerickém a grafickém módu. 

4.2.3 Nové pozadí. Předcházející barva znaků se 
stává barvou nového pozadí 

4.2.4 Černé pozadí. Nastaví se černá barva 
pozadí. 

4.2.5 Spojitá grafika. Grafické prvky přiléhají 
jeden k druhému bez mezery. 

4.2.6 Oddělená grafika. Grafické prvky jsou 
odděleny mezerami (proužky) v barvě pozadí 
( obr. 13). 

4.2.7 Sevřená grafika. Sevřená grafika umožňuje 
mezeru obsahující řídicí znak překrýt grafic- 
kým znakem. Tento znak je definován pouze 
v grafickém módu. Je to poslední znak, který 
předchází před danou mezerou a jehož 6. bit 
má hodnotu 1. Přitom nesmí dojít ke změně 
alfanumerika/grafika nebo jednoduchá/dvojitá 
výška. Znak sevřené grafiky se zobrazí jako 
spojitý nebo oddělený ve shodě s nastaveným 
módem. 

4.2.8 Skrytí a zviditelnění znaků. Znaky, které 
jsou vymezeny pomocí těchto řídicích znaků, 
se zobrazují jako mezery do doby, než jsou 
zviditelněny činností dekódovacího zařízení 
nebo zásahem uživatele. 

9 Blikání a stálé zobrazeni (konec blikání). Znaky, 
které jsou vymezeny pomocí těchto řídicích 
znaků, se zobrazují střídavě jako znaky a jako 
mezery v barvě pozadí. Kmitočet blikání je 
určen dekódovacím zařízením. 

4.2.10 Začátek vkládání a konec vkládání. Definu- 
je se část obrazu určená pro vložení do 

• normálního tv obrazu (titulky, zpravodajský 
vstup). Tato funkce je chráněna zdvojeným 
přenosem řídicích znaků označujících začátek 
a konec vkládání. 

4.2.11 Dvojitá výška. Znaky jsou prodlouženy 
vertikálně do prostoru následujícího řádku. 
Zobrazeni v druhém řádku má stejnou barvu 
znaků i pozadí jako první řádek. Případné 
znaky přenášené v druhém řádku jsou ignoro- 
vány. 

5. Zabezpečeni dat Hammingovým 
kódem 

Přenos některých dat je proti chybám zabez- 
pečen Hammingovým kódem. Používá se 
dvou modifikací tohoto zabezpečení: 
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Obr. 14. Vytvoření 
kontrolního slova 


16 -bitový posuvný registr 

1 2 3 ,4 5 6 7 6 9 10 TI 12 13 % 15 16 U 


vstup 


IL 


sčítačka modulo 2 


-hodiny 


5.1 Jeden bajt obsahující čtyři informační bity 
a čtyři zabezpečovací (ochranné) bity (varianta 
A). Zabezpečovací jsou bity 1, 3, 5, 7, 
informační jsou bity 2, 4, 6, 8. Zabezpečovací 
bity se pro danou kombinaci informačních bitů 
doplňují podle tabulky Hammingova kódu 
obr. 21a. Při dekódování se nejprve provedou 
následující operace: 

A = b8 xor b6 xor b2 xor bl 
B = b8 xor b4 xor b3 xor t>2 
C = b6 xor b5 xor M xor b2 
D = b8 xor b7 xor b6 xor b5 xor b4 xor b3 xor 
b2 xor bl 

xor označuje logickou operaci exclusive or 

Graficky jsou testované bity vyznačeny v tabul- 
ce obr. 21b. Výsledky těchto operací se po- 
kládají za správné tehdy, jestliže jsou rovny 
log. 1. Prakticky to znamená, že vybraná skupi- 
na bitů musí mít lichou paritu. Vyhodnocení 
chyb se provádí podle tabulky obr. 21c. 

5.2 Skupiny tří bajtů obsahující 18 informačních 
bitů a 6 zabezpečovacích (ochranných) bitů 
(varianta B). Zabezpečovací jsou bity 1, 2, 4, 8, 
16 a 24, informační jsou bity 3. 5. 6. 7, 9, 10, 1 1 , 
12, 13, 14,15, 17 až 23. Zabezpečovací bitý se 
pro danou kombinaci Informačních bitů vy- 
počtou podle následujících vztahů: 

bl = not (b23 xor b21 xor b19 xor b17 xor b15 
xor b13 xor bil xor M xor b7 xor bS xor 
»*> 

b2 = not (b23 xor b22 xor b19 xor b18 xor b15 
xor b14 xor bil xor blO xor b7 xor b6 xor 
b3) 

b4 = not (b23 xor b22 xor b21 xor b20 xor bIS 
xor b14 xor b13 xor b12 xor b7 xor b6 xor 
bS) 

b* = not (bIS xor b14 xor b13 xor b12 xor bil 
xor blO xor b9) 

bia = not (b23 xor b22 xor b21 xor b20 xor 
b19 xor bia xor b17) 

b24 = not (b23 xor b22 xor b21 xor b20 xor 
b19 xor bia xor b17 xor bia xor b15 xor 
b14 xor b13 xor b12 xor bil xor blO xor 
b9 xor bS xor b7 xor b6 xor bS xor b4 
xor b3 xor b2 xor bl) 

Při dekódování se nejprve provedou následu- 
jící operace: 

A « b23 xor b21 xor b19 xor b17 xor bIS xor 
b13 xor bil xor b9 xor b7 xor bS xor b3 xor 
bl 

B = b23 xor b22 xor b19 xor bIS xor b15 xor 
b14 xor bil xor blO xor b7 xor b6 xor b3 
xor b2 

C = b23 xor b22 xor b21 xor b20 xor b15 xor 
b14 xor b13 xor b12 xor b7 xor b6 xor b5 
xor t>4 

D = b15 xor b14 xor b13 xor b12 xor bil xor 
blO xor b9 xor b8 

E = b23 xor b22 xor b21 xor t>20 xor b19 xor 
bia xor b17 xor b16 

F = b24 xor b23 xor b22 xor b21 xor b20 xor 
b19 xor bia xor b17 xor b16 xor bIS xor 
b14xorb13xorb12xorb11 xorblOxorbS 
xor b8 xor b7 xor ba xor bS xor b4 xor b3 
xor b2 xor bl 

xor označuje logickou operaci exclusive or 

Graficky jsou testované bity vyznačeny v tabulce 
obr. 22a. Výsledky těchto operací se pokládají za 
správné tehdy, jestliže jsou rovny log. 1. To 
znamená, že vybraná skupina bitů musí mít 
lichou paritu. Vyhodnocení chyb se provádí podle 
tabulky obr. 22b. 

6. Vytvořeni kontrolního slova 

Vytvoření kontrolního slova je znázorněno na 
obr. 14. Na vstup 16-ti bitového posuvného registru 
je přiváděn výsledek součtu modulo 2 externího 
vstupu a obsahu 7., 9., 12. a 16. stupně registru. 
Na začátku se registr vynuluje ve všech stupních. 
Během sekvence 8192 hodinových impulsů Je 
vstupní signál tvořen prvními 24 znakovými bajty 
(24 x 8, tj. 192 bitů) ze záhlaví (řádku 0) a násle- 
dujlcmi znakovými bajty z řádků 1 až 25 (40 
x 8 x 25, tj. 8000 bitů), a to při normálním pořadí 
přenosu. Chybí-lf některý paket, bere se jako by 
obsahoval vesměs znaky <SP> (mezera) (20). 

V každém bajtu je pořadí bitů b8 až bl. Toto 
pořadí, které je opačné než při vysílání ostatních 
bajtů textu, slouží pro usnadnění činnosti deko- 
déru, který využívá data uložená ve stránkové 
paměti. 
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Obr. 16. Tabulka G2 

(1) Sloupec 4 obsahuje diakritická znaménka, 
která se přiřazují znakům z tabulky G0 (obr. 15). 

(2) Znak 7/15 je interpretován stejně jako v tabul- 
ce G0. Kód 4/0 je „nulové znaménko", což 
umožňuje zobrazení libovolného symbolu z ta- 
bulky G0 bez diakritického znaménka s využitím 
paketu 26. Kódy 4/9 a 4/12 jsou rezervovány pro 
budoucí využití. 
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Národní tabulka. čs. znaků 


Obr. 18. Úplný soubor znaků pro češtinu 
a slovenštinu 


Poznámka: Tento soubor znaků byl dopl- 
něn ještě o znaky 0 a 0. 

Na konci procesu plnění registru je obsah 
registru tvořen kontrolním slovem základní strán- 
ky. 

Pořadí přenosu skupiny se dvěma bajty, která 
vznikne 16-ti bitovou cyklickou kontrolou nadby- 
tečnosti dané stránky, je bit 9 až 16 (CRC A) 
a poté bit 1 až 8 (CRC B) včetně. 






Čeština/ Svéd- 
na/ ština 
slovenšti- 
na 




ES vyhrazeno pro národní varianty znalé 
-) v současné úrovni, teletextu se nepoužívají 
™> předpokládá se na začátku každého řádku 

černá představuje barvu znaku, bílá představuje barvu pozadí 

(znaky ve sloupci 4 a 5 mohou být zobrazeny i v grafickém módu — tzv. pronikání 

alfanumerických znaků) 

Obr. 15. Tabulka GO 


DOPLŇKOVÝ MÓD OKAMŽITÉ 

zobrazen! působen! 


angličtina 

němčina 

švédština, 

finština 


francouzština 
portugalština, 
španělština 
čeština, 

1 1 slovenština 
1 | 1 maďarština 


Východní 

Evropa 


polština 

němčina 

srbochorvat- 

ština 

italština 

francouzština 

portugalština, 

španělština 

čeština, 

slovenština 

maďarština 



Obr. 20. Tabulka jazykových variant 


AČNl BITY 



MÓD 

ZOBRAZENI 

| OKAMŽITÉ 
j PŮSOBENI 

Atfanumerika 

bílá 

červená 

zelená 

modrá 

žlutá 

purpurová 
modrozelená 
černá * 

! 

Zač. řádku 

Spojitá (grafika) 

Zač. řádku 

1/9* 

černé pozadí 

Zač. řádku 

1/12 

Zviditelnění 

znaků 

Zač. řádku 
Zásah uži- 
vatele*** 

Stálé zobrazení 
konec blikání 

Zač. řádku 

0/9 

Konec vkládání 

Zač. řádku 
0/10**** 

Normální výška 

Zač. řádku 

0/12 

Uvolněná grafika 

Zač. řádku 




modrá 

žlutá 

purpurová 

modrozelená 

černá 


Oddělená (grafika) 1/10 * 


Nové pozadí 


0/1 0/2 0/3 Skryti zrakO 
0/4 0/5 0/6 
0/7 1/1 1/2 
1/3 1/4 1/5 
1/6 1/7 0/0 
1/0 


0/10 * * * * 


Blikání 


Začátek vkládáni 


Dvojitá výška 


Sevřená grafika 


* Tyto řídicí znaky mohou působit okamžitě nebo následně 
** Aktuální barva znaků je vzata jako nová barva pozadí 
** Zviditelnění skrytých znaků na celé stránce /nuže být provedeno zásahem uživatele 
** Tyto řfcHcí znaky jsou přenášeny zdvojeně; první působí následné, druhý okamžitě 

Obr. 17. Tabulka působení řídicích znaků 




Obr. 21a. Tabulka Hammíngova kódu 
pro jeden bajt 
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Obr. 21b. Testy na lichou paritu (varian- 
ta A) 


Výsledky 
testů parity 

Vyhodno- 

ceni 

činnost 

A, B, C 

D 

Všechny 

správně 

Správ- 

ně 

Žádná 

chyba 

Použít 

informační bity 

Všechny 

správně 

Ne- 

správ- 

ně 

Chyba 

vb7 

Použít 

informační bity 

Ne všech 
ny 

správně 

Správ- 

ně 

Několika- 

násobná 

chyba 

Odmítnout 
informační bity 

N« všech 
ny 

správně 

Ne- 

správ- 

ně 

Jednodu- 

chá 

chyba 

Srovnáním s tabulkou 
obr. 21b identifikovat 
chybu. Jestliže je v in- 
formačním bitu, pak 
opravit. Použít infor- 
mační bity. 


Obr. 21c. Tabulka vyhodnocení chyb 
(varianta A) 



A 

B 

c 

D 

E 

F 

bl 

0 

X 

X 

X 

X 

0 

b2 

X 

0 

X 

X 

X 

0 

b3 

0 

0 

X 

X 

X 

0 

b4 

X 

X 

0 

X 

X 

0 

b5 

0 

X 

0 

X 

X 

0 

b6 

X 

0 

0 

X 

X 

0 

b7 

0 

0 

0 

X 

X 

0 

b8 

X 

X 

X 

0 

X 

0 

b9 

0 

X 

X 

0 

X 

0 

blO 

X 

0 

X 

0 

X 

0 

bil 

0 

0 

X 

0 

X 

0 

b12 

X 

X 

0 

0 

X 

0 

b13 

0 

X 

0 

0 

X 

0 

b14 

X 

0 

0 

0 

X 

0 

b15 

0 

0 

0 

0 

X 

0 

b16 

X 

X 

X 

X 

0 

0 

b17 

0 

X 

X 

X 

0 

0 

b18 

X 

0 

X 

X 

0 

0 

b19 

0 

0 

X 

X 

0 

0 

b20 

X 

X 

0 

X 

0 

0 

b21 

0 

X 

0 

X 

0 

0 

b22 

X 

0 

0 

X 

0 

0 

b?3 

0 

0 

0 

X 

0 

0 

b24 

X 

X 

X 

X 

X 

0 


0 — Testované bity 

Obr. 22a. Testy na lichou paritu (varian- 
ta B) 


7. Závěr 

Protože při označování řádků, bajtů a bitů je 
používáno číslování od 0 včetně, mohou vznik- 
nout zdánlivé nesrovnalosti mezi tímto popisem 
a jinými články, které se zabývají touto problema- 
tikou. Dále je třeba vzít v úvahu, že celý systém je 
stále ještě ve vývoji a může se v některých 
detailech měnil A konečně, omlouváme se za 
všechny nepřesnosti a nedostatky (např. neúplná 
tabulka G2, popis paketu 30 atd.), které jsou 
způsobeny tím, že se přes veškerou snahu 
nepodařilo zajistit potřebné prameny. 

Závěrem bychom chtěli poděkovat ing. Jiřímu 
Rečkovi z Československé televize za velice 
účinnou pomoc při sestavování tohoto článku. 


Výsledky 
testů parity 

Vyhodno- 

ceni 

činnost 

A, B, C, 

D.E 

F 

Všechny 

správné 

správ- 

ně 

Žádná 

chyba 

Použít 

informační bity 

Všechny 

správně 

Ne- 

správ- 

ně 

Chyba 

vb24 

Použít 

informační bity 

Ne všech- 
ny 

správně 

Správ- 

ně 

Několika- 

násobná 

chyba 

Odmítnout 
informační bity 

Ne všech- 
ny 

správně 

Ne- 

správ- 

ně 

Jednodu- 

chá 

chyba 

Srovnáním s tabulkou 
obr. 22.a) identifikovat 
chybu. Jestliže je v in- 
formačním bitu, pak 
opravit Použít infor- 
mační bity. 


Obr. 22b. Tabulka vyhodnocení chyb 
(varianta B) 
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Program TELETEXT má za úkol 
zabezpečit takové zpracování dat při- 
cházejících z adaptéru, aby výsledná 
soustava, využívající adaptéru a mikro- 
počítače pro příjem teletextu, plnila 
všechny funkce běžné u standardních 
dekodérů. Základní technická data 
programu ve spojení s adaptérem jsou 
uvedena v následujících bodech: 

1. Program umožňuje příjem teletextu 
systému WST úrovně 1.5. Je využí- 
váno paketů 26 a 27. Paket 30 
a kontrolní slova CRC nejsou využity. 

2. Zobrazovaná stránka obsahuje 24 
řádků po 40. znacích. Je možné 
zobrazit i doplňkový 25. řádek. 

Jsou zobrazovány všechny znaky 
národních abeced češtiny/sio- 
venštiny, němčiny a švédštiny. 


16 mikroelektronika 


3. Program umožňuje využít všech 
zvláštních funkci běžných standard- 
ních dekodérů (volba stránky, přímá 
volba podstránky, podržení rotující 
podstránky, zobrazení v dvojité 
výšce, skryté zobrazení). 

4. Program neumožňuje vkládání titul- 
ků do televizního obrazu. 

5. Program umožňuje tisk zvolených 
stránek. 

Základní požadavky na činnost pro- 
gramu TELETEXT byly stanoveny srov- 
náním se standardními dekodéry tele- 
textu. * 

V první řadě je třeba, aby program 
umožnil plnohodnotné zobrazování vy- 
sílaných stránek, tj. aby správně reago- 
val na přenášené řídicí kódy a kódy 
alfanumerických a grafických znaků. 
Dále musí správně vyhodnocovat infor- 
mace, obsažené v doplňkových pake- 
tech. 

Za druhé je nutné, aby uživateli 
poskytl stejný nebo takřka stejný kom- 


fort při ovládání zvláštních funkcí deko- 
déru. Tyto funkce jsou popsány dále. 

Obecné možnosti grafického zpraco- 
vání teletextovó stránky vyplývají 
z článku „TELETEXT — popis... “. 
Program je schopen z přijatých infor- 
mací tuto stránku věrně zobrazit včetně 
zobrazení znaků národních abeced. 
Výjimku tvoří ty části stránky, kde je 
použita funkce blikání (odst. 4.2.9 čl. 
..TELETEXT — popis . . .“). Uvedené 
části budou zobrazovány tak, jako by 
tato funkce nebyla použita. Dále může 
u určitých částí stránky, vytvořených 
pomocí grafických znaků, docházet 
k nepřesnostem v barevném podání. 
Tyto chyby v zobrazení vznikají při 
překrytí rastru teletextové stránky (24 
řádků po 40 pozicích pro znaky) 
s rastrem mikropočítače Sord a Spec- 
trum (24 řádků po 32 pozicích pro 
znaky). U mikropočítače Sharp k těmto 
chybám nedochází. 






25. doplňkový řádek, který zobrazují 
standardní dekodéry pod kompletní 
stránkou, je možné vyvolat stisknutím 
klávesy <SP>. Přítomnost tohoto řádku 
indikuje znak ,>* v levém horním rohu 
obrazu. Doplňkový řádek se zobrazí na 
místě záhlaví stránky. 

Vzhledem k tomu, že videosigná! 
z mikropočítače není synchronizován 
s přijímaným televizním vtdeosignáiem, 
není možné ani při využití vhodného 
přepínače realizovat ty funkce, běžné 
u standardních dekodérů, které vyža- 
dují vložení (příp. prolnutí) teletextové 
stránky nebo její části do televizního 
obrazu. To se týká např. vloženi časo- 
vého údaje, titulkování pořadů, vložení 
tzv. zpravodajského vstupu, prolnutí 
teletextové stránky do tv obrazu, využití 
funkce „budík** atd. Při příjmu s využi- 
tím dvou televizorů je možné na jed- 
nom zobrazovat televizní pořad, na 
druhém se pak objevují příslušné titul- 
ky. Obdobně je možné nepřímo realizo- 
vat i funkci „budík**. 

Základní funkcí u každého dekodéru 
je funkce, která umožňuje zvolit poža- 
dovanou stránku. Stránka se volí za- 
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Obr. 2. Připojení tiskárny k mikropo- 
čítači ZX Spectrum 


dáním třícifemého čísla (tj. včetně čísla 
magazínu). Tuto funkci samozřejmé 
program umožňuje a to kdykoli, pokud 
se nachází v základním režimu (tj. 
nejsou aplikovány funkce HOLD, DOU- 
BLE nebo FAST SEARCH, viz dále). 
Jednotlivé číslice se objevují postupně 
v levém horním rohu obrazu vedle 


písmene ,P* nebo znaku >. Pokud 
dojde k chybě při zadávání, stačí 
doplnit zbývající pozice libovolnými 
číslicemi, stisknout <CR> a provést 
novou volbu. Na rozdíl od standardních 
dekodérů vyžaduje program potvrzení 
volby klávesou <CR>. Po tomto potvr- 
zení se vedle zvoleného čísla stránky 
objeví ménící se čísla právě přijatých 
stránek. Přitom nejsou zobrazována ta 
čísla stránek, která nenásledují v po- 
stupném číselném pořadí. Jsou to 
většinou přehledové stránky, které se 
vysílají několikrát v jednom cyklu, nebo 
stránky, přenášející titulky. Jakmile 
dojde k nalezení stránky se stejným 
číslem jako je zadané, čísla přijímaných 
stránek zmizí a zobrazí se požadovaná 
stránka. Jestliže je tato stránka zne- 
hodnocena rušením, je možné provést 
opakované načtení klávesou ,A‘. 
Případné rotující podstránky se načítají 
automaticky. 

Program také umožňuje zrychlenou 
volbu pomocí tzv. sdružených stránek. 
Tato možnost je indikována znakem 
,>* v levém horním rohu obrazu. Po zo- 
brazení 25. řádku klávesou <SP> je 
možné provést klávesou ,1* až ,4* zrych- 
lenou volbu podle přehledu v 
25. řádku. 

Pomocí klávesy ,1* je možné přímo 
volit tzv. indexovou stránku, tj. stránku 
se základním přehledem. 

Další běžnou funkcí je zobrazeni 
reálného času. čas bývá zobrazován na 
posledních osmi pozicích prvního řád- 
ku (záhlaví) nejčastěji ve tvaru 
00.00.00. Program umožňuje průběžné 
zobrazení času, pouze při načtení 
stránky se čas zastaví na dobu potřeb- 
nou pro zpracování informací (řádově 
stovky ms). Zobrazení času je potlače- 
no při využití zvláštních funkcí DOUBLE 
a TIME CODE. 

Pod označením zvláštní nebo do- 
plňkové jsou u standardních dekodérů 
běžná následující funkce: 

— Dvojitá výška (DOUBLE) — umožňu- 
je pro lepší rozlišení zobrazit horní 
a dolní polovinu zvolené stránky 
v dvojnásobné výšce. 

— Podržení rotující podstránky 
(HOLD) — pokud jsou podstránky 
zobrazovány po příliš krátkou dobu, je 
možné touto funkcí jejich rotaci přeru- 
šit a podržet zobrazovanou podstránku 
na požadovanou dobu. Tuto funkci je 
možné využít i u normálních stránek, 
a to tehdy, když vlivem rušení dochází 
k častému přepisování načtené stránky 
stránkou falešnou. 

— Zobrazení skrytých znaků (RE- 
VEAL) — tato funkce umožňuje zvi- 
ditelnění znaků, které jsou při prvním 
zobrazení skryty (zobrazeny jako meze- 
ry). Využívá se především pro skrytí od- 
povědí u kvízů nebo pro skrytí informa- 
cí, určených pouze pro některé uživate- 
le. 

— Přímá volba podstránek (TIME CO- 
DE) — pomocí této funkce je možné 
zvolit číslo požadované podstránky ob- 
dobně jako číslo základní stránky (vol- 
ba je možná pouze u některých pod- 
stránek, tato možnost bývá vyznačena). 
Volba se provádí po zvolení čísla 
stránky, číslo podstránky se většinou 
zobrazí na místě reálného času. 

Tímto způsobem se zadává i čas pro 
aplikaci funkce „budík**. Stránka, na 
které je budík zobrazen, je vlastně 
složena z rotujících podstránek. jejichž 
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čísla odpovídají reálnému času. To 
znamená, žě tato podstránka se zobrazí 
v dobé, kdy se její čisto bude shodovat 
s nastaveným časem. 

Program umožňuje realizaci všech 
těchto funkci. Jejich přesné použití je 
popsáno v části Popis ovládání. 

Program navíc umožňuje vytisknout 
zvolenou stránku dvěma způsoby. 
U tiskárny se předpokládá rozhraní 
Centronics, nejlépe standard IBM nebo 
Epson. Nastavení způsobu tisku 
a vlastní tisk se provede příkazy, které 
jsou dostupné po zobrazení menu (viz 
část Popis ovládání). Tabulka propoje- 
ní tiskárny a interfejsu s obvodem 
-8255A pro mikropočítač ZX Spectrum 
je na obr. 2. ' 

Popis programu TELETEXT 

Programové vybavení bylo vytvořeno 
pro mikroprocesor Z80 a implemento- 
váno na mikropočítače Sord M5, Sharp 
MZ 800 a ZX Spectrum. Program je 
napsán v makroassem bleru Z80, zdro- 
jový text má délku asi 130 kB. Přelože- 
ný strojový kód má délku asi 14 kB, 
z toho je asi 6kB vlastní program, 
zbytek tvoří tabulky a data pro dekódo- 
vání. 


Celkový vývojový diagram programu 
je na str. 17. Pro přehlednost jsou 
zakresleny pouze hlavní vazby mezi 
jednotlivými bloky. 

Hlavní částí programu TELETEXT je 
procedura IDLE, která zajišťuje 
vzájemné propojení a volání jednotli- 
vých bloků programu a dále zajišťuje 
i některé stále se opakující funkce 
(bloky TIME, PAGE). 


Stručný popis funkcí jednotlivých 
bloků: 

INICIALIZACE — základní inicializace 
systému. 

LINEO, LINEI — vyhledává a dekóduje 
adresu řádku, načití záhlaví zvolené 
stránky. 

SEARCH — vyhledává rámcový (fra- 
ming) kód. 

SCAN-GO — čeká na ukončení nej- 
bližšího signálu GO a současně po- 
mocí bloku CONST testuje klávesnici 
na stisk klávesy. Po ukončení GO 
přesune data z vyrovnávací pamětí 
adaptéru do operační paměti mikro- 
počítače pro další zpracování. 

CONST — testuje klávesnici. 


CARRY — test vlajky indikující stisknutí 
klávesy. 

INTERPRETER — volá příslušnou ruti- 
nu z BLOKU OVLÁDÁNÍ. 

BLOK OVLÁDÁNÍ — obsahuje rutiny 
nutné pro provádění příkazů uživate- 
le (DOUBLE. HOLD. REVEAL, 
CLOCK, TIME, CODE, PAST, 
SEARCH, INDEX, MENU, PRINT, 
HELP, SETUP, EXIT). 

CHECK — volá příslušnou rutinu TIME 
a PAGE. 

TIME — porovnává systémový čas 
s údajem o reálném čase, přenáše- 
ném v záhlavích stránek. 

PAGE — při vyhledávání zvolené strán- 
ky porovnává číslo právě načtené 
a zvolené stránky (včetně čísla maga- 
zínu). 

REST — načítá zbytek stránky až po 
hlavičku následující stránky. 

SAVÉ — volá rutiny nutné pro zpraco- 
vání paketu 27 a paketu 26. 

DEK27 — dekóduje paket 27, 

PAK26 — dekóduje paket 26. 

DISPLAY — řídí zobrazování stránky, 
volá potřebné rutiny z BLOKU ZO- 
BRAZENÍ. 

BLOK ZOBRAZENÍ — obsahuje rutiny, 
nutné pro správné zobrazení stránky. 


Popis některých vybraných částí programu 


ÚVOONÍ BLOK 


V úvodním bloku jsou definovány nutné makroinstrukce 
pro komunikaci s paralelním rozhraním a velikosti jednotli- 
vých bafrú. Je uveden příklad minimálních definic, potřeb- 
ných pro činnost základní části programu. 


VYHLEDANÍ A DEKÓDOVÁNÍ RADKU 


V další části je popis hlavní procedury pro vyčítání dat 
z adaptéru a pro úpravu jednoho teletextového řádku. Pro- 
cedura volá podprogramy nižší úrovně (viz dále), které jsou 
zčásti závislé na hardware počítače. Vlastní hlavní procedura 
pro vyčítání je volána z hlavní programové smyčky (procedu- 
ry IDLE). 


Uvcdni blok 




FRANING E8U 
ENABLO EQU 
ENAftl EQU 


000011108 

OOOOU11B 


j Franinguv fcod 
j ENABEO 
ENA&E=1 


PROGRAMOVANÍ 8255 


1. Nastaveni rez inu 
Bit 7 4 5 4 


1 0 


! Port C (lower) l-Inp«t,0-flijtp«l 
Port F l-Input,0-OMtput 
Hode selection O-Hode 0,1-Hode 1 
Port C (upper) l-lnput,0-0utput 
Port A l-lnput,0-0utput 
Hode selertion (XF Hode 0,01-flode 1, IX- Hode 2 
Hode set flag Hlctive 

2. Bit set/reset foraat 
Bit 76543 2 10 


! í ! Bit set/reset flag 1 -Set,0-Reset 
Bit select 000-0 : 111-7 

Unused 

Bit set/reset flag 0-Active 


CU 


EQU 


10010011E 


PIOSIZE ESU 448 


Řidiči slovo pro 8255 
PA - vstup dat z dekodéru 
PB - nepouzit-nastaven jako vstup 
PCD - /G0 sigBal z dekodéru 
Pa - ENABl.E signál do dekodéru 
Velikost bufferu pro P!0 ( na*. pro 
8 ttx. datovgch radku v pulsaieku ) 
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* Vghledani a dekódováni radku * 

# * 

MMjHHHHHjHmHHHHlHHHHH ě IMf um Věn žty# 

Program vghleda a dekóduje adresu radku do oblasti R0HADR 
Je-li to radek 00 ( hlavička ) , provede dekódovaní do oblasti 1EAD 
pres ruting : 

SEARCH Vghledani fraaingova kódu 

SCANJ50 Načteni dat z teletextu 

BEC0BE Hakro,kter* dekóduje Hawingovy kodg 

Vgstup; F(CY)-1 - bylo přerušeno ctěni 
jinak F(CY)=0 

Hl - Adresa prvního datového bytu ( za zahlavin ) 


Vstup : HICI 
LINEO 


LINEO; 


H,BC a PI0S.F nastaveny z předchozího voláni 
- Nacita data do PI08UF a nastavuje HL,EC 


L1NE4: 


CALL 

SCWLG0 

Nejprve au sine načíst data 

RET 

c 

Bylo přerušeno cteni-navrat 

LD 

HL.PIOBtr 

Odkud ^acirirtuc- 

IP 

BC.PIOSITE 

Velikost bufferu 

CAll 

SEARCH 

Vyhledej Fráni nj v bufferu 

JR 

NZ, LINEO 

Buffer prázdny, nebo falešný radek 

L0 

A, (Hl 

Hagazine f ♦ Rou address 

DEC0DE 


Dekóduj Hanninguv kod 

JP 

H, LINEI 

Chi^a - hledej důle 

LD 

E,A 

Uschovej nezivysledek: 

INC 

w. 

HL= adresa Ro*> address ( nizsi 4 bitg 

LD 

A, (HL) 

Haaaing do ACC 

DEOTE 


Zkus ho dekódovat 

JP 

JI, LINEI 

Chyba - hledej dalsi radek 

INC 

HL 

Posun na dalsi zrwk 

SLA 

A 

Rotuj je do správné pozice 

BIT 

3,E 

Test, na lichý radek ( 0-ty bit =1) 

JR 

Z.LINE4 

Je sudy 

INC 

A 

Je lichý 

S.D 

(R0UA0R),A 

Ulož cislo radku 

ID 

D,A 

Uschovej adresu na chvíli 

LD 

A,E 

Vezni cislc nagazinu 

Wffi 

1UB 

Oprav ho 


LD 

(HEAB),A 

Ulož číslo magazínu 

LB 

A,D 

Vrat zoet adresu 

OP 

A 

Test na cislo radku ♦ CY=0 

PET 

NI 

“a.tat kdyr ne»i radek 00 

LB 

DE,HEAD*L 

Cilova oblast pro dekódováni 

PUSH 

BC 

Uschovej počitadlo neprohledanych bytu 

LD 

B,8 

Počet bytu v zahlavi 

LB 

A,(HL) 

Dekódovaný byte 

DECODE 


Zkus ho dek:odovat 

.JP 

H, LINES 

Chyba - oprav zásobník a hledej dále 

I.D 

IDE), A 

Ulož dekódovaný byte 

INC 

Ht 

Posun oba 

INC 

DE 

ukazatele 

DJNZ 

LINE2 

Dekóduj cele zahlavi 

EX 

’SP),HL 

Vezmi počitadlo 

ID 

BC,-8 

Opravíme o odebrané byty ze zahlavi 

AOD 

HL,BC 

Oprav 

EX 

(SP),HL 

Vrátíme zpět adresu 

POP 

BC 

Obnov počitadlo 

XOR 

A 

CY=0 

RET 


Na vrat 

LB 

A, 8 

Budeme počítat ofset 


B 


LD 

C,A 

; EC=vysledek 

LD 

B,0 


OR 

A 

; CY=0 

EX 

<SP),HL 

; Vezmeme adresu 

SBC 

hi,bc 

; Opravíme počitadlo o data 

EX 

(SP),HL 

; Vrátíme zpět 

POP 

BC 

i Oprav zásobník ( vrat počitadlo ) 

JR 

LINEI 

; a hledej znovu 


VYHLEDANÍ rámcového kOdu 


Následující rutina je používána pro vyhledání začátků tele- 
textových řádků. Začátek řádku je identifikován přítomností 
rámcového kódu (framing code). Jestliže následují dva tyto 
kódy za sebou, považuje se za platný druhý výskyt. 

JWIM >H»H (HltHÍHHHlHHHHřMHW 
;l * 

;* Vyhledáváni Framingova kódu * 

• » t 

; Program vyhledává framinguv kod od adresy (HL) v delce (BC) 
j a testuje přetečeni i mimi leh:' vyhledávání. 


; Vystup: Z=1 

... Nasel framing HL 

addr UV smi njt!-' 

SEARCM: 

BIT 

7,8 

; Test na přetečeni rozsahu 

RET 

NZ 

; Framing nenalezen-pretek ! 

LD 

A, FRAMING 

; Co hledáme 

CPIR 


; Hledej 

RET 

NZ 

; Navrat - nenasel 

Cr 

( HL) 

j Test na 2* framing za -:ebo 

JR 

Z.SEARCHl 

; Jsou 2 framingy 

XOR 

A 

1 7=5 

RET 


; Navrat Z 

SEARCH1 : INC 

HL 

; Přeskoč prvni framing 

DEC 

BC 

; Oprav počitadlo 

XOR 

k 

i M 

PET 


; Navrat Z 


PftEKÓDOVACf TURBO TABULKA 


ČEKANÍ NA GO A TEST KLÁVESNICE 


Dále uvedená tabulka umožňuje velmi rychlé dekódování 
a vyhodnocení (případně opravení) Hammingova kódu (va- 
rianta A, viz „TELETEXT — popis systému . . .“). Tuto tabul- 
ku využívá makro DECODE volané v LINEO a v LINEI. 


Následující rutina testuje stav klávesnice a adaptéru. Při 
^připravenosti adaptéru pro předání dat provede přesunutí 
dat z vyrovnávací paměti adaptéru do oblasti PIOBUF. Ta 
slouží jako pracovní oblast p r o dekód ování. Při přenosu dat 
je využíváno signálu CS PIO a RD PIO k přímému inkremen- 
tování čítače pro adresováni vyrovnávací paměti v adaptéru. 
To znamená, že tuto činnost není třeba ovládat softwarově. 

V případě, že se čeká na připravenost adaptéru a je stisk- 
nuta některá klávesa, je nastavena vlajka indikující uživatel- 
ský vstup (CARRY) a je proveden návrat do procedury, která 
tuto rutinu volala (LINEI nebo LINEO). 


H H i mmimumHW»imii » nnm 

i * 

* Cekáni na GO a test klávesnice * 

* * 
WHimiiKHHtmiMHimimiHHi 

Tento podprogram ceká na ukončeni nejblizsiho signálu GO 
a testuje klávesnici na stisk tlačítka ( přerušeni hledáni ). 
Po příchodu signálu načte data z vyrovnávací paměti dekodéru 
na adresu PIOBUF pro dalsi zpracovaní. 

Vystup: F <CY)=1 - bylo přerušeno 


SOKŮM: 


CALL 

CONST 

Get console status 

OR 

A 

Nastav vlajku Z/NZ 

SCF 


Připadne vlajku INTERRUPT 

RET 

NZ 

Byla stisknuta klavesa 

IN 

A, (PIOO 

Načti status (M siyalu 

ano 

1 

Maskuj pouze tento bit 

jr 

NZjSCAřLGO 

<M .jeste nepřišlo 

IN 

A, (PIOC) 

Test na jeste trváni GO 

m 

1 

Maskuj GO bit 

JR 

ZjGO.SCAN 

GO jeste trvá 

IJ 

A.ENABLl 

Povolíme vyčítáni dat z dekodéru 

0UT 

(cm>,A 

pres PC7 

I.D 

HL, PIOBUF 

Kam budeme ukladat data 

LD 

BC.PIOA 

0dk>id budeme brat + počitadlo 

INIR 


Načteme prvních 256 bytu 

LD 

INIR 

BC,256*(PI0SIZE-256)+PI0A; Načteme zbytek dat 

LD 

AjENABlO 

Zakazeme vycitani dat z dekodéru 

OUT 

(CTRL), A 

pres PC7 

XOR 

PET 

ft 

Nuluj CY flag 


;* * 

;* FVefcúdovstc i TUPEO taktika * 

;» » 

; Tabulka pro TURKt dekódovaní 
; (d 1938 Pavel BRYCHTA 


•RADIX 

16 

DB 

OFF,OOC, 001 ,OFF,OOA,OFF,OFF,OC9 

DB 

OOA f OFF,QFF,OOB,OOA,OOA,OOA,CFF 

DB 

008, 0FF, OFF, 00B, 0FF, 000, 00D, 0FF 

DB 

OF,')OB,OCB,OOB,OOA,OFF,OFF,OOB 

DF 

OOC,OOC,OFF,OOC,OFF,OOC,OOD,OFF 

DB 

OFF,OOC,OOF,OFF,OOA,OFF,OFF,007 

DB 

OFF,OOC,OOD,OFF,OOD,OFF,OOD,OQD 

DB , 

006,OFF,OFF,OOB,OFF,OOE,OOD,OFF 

DF 

008, OFF, OFF, 009, OFF, 009, 009, 009 

DB 

OFF, 002, OOF, OFF, OOA, OFF, OFF, 009 

db 

008, 008, 008, OFF, 008, OFF, OFF, 009 

DB 

008, OFF, OFF, 00B, OFF, OOE, 003, OFF 

DB 

OFF,09C,OOF,0FF,OO4,CFF,0FF,OO9 

DB 

OOF,OFF,OOF,OOF,OFF,OOE,OOF,OFF 

DB 

008, OFF, OFF, 005, OFF, OOE, OOD, OFF 

DB 

OFF, OOE, 00F, OFF, 00E, OOE, OFF, OOE 

TABLE: DB 

001, OFF, 001, 001, OFF, 000,001, OFF 

DB 

OFF, 002, 001 , OFF, 00A, OFF, OFF, 007 

DB 

OFF, 000, 001, OFF, 000, 000, OFF, 000 

DB 

006, OFF, OFF, 00B, OFF, 000,003, OFF 

DB 

«T,00C,0Ol,0FF,OO4,0FF,0FF,0O7 

DB 

006, OFF, OFF, 007, OFF, 007, 007, 007 

DB 

006, OFF, OFF, 005, OFF, 000, 000, OFF 

DB 

006,006, 006,OFF,Q06,OFF, OFF, 007 

DB 

OFF, 002,001, OFF, 004, OFF, OFF,009 

DB 

002,002, OFF, 002, OFF, 002,003,OFF 

DB 

008, OFF, OFF, 005, OFF, 000,003, OFF 

DB 

OFF, 002, 003, OFF, 003, OFF, 003, 003 

DB 

904, OFF, OFF, 005, 004,004,004, OFF 

DB 

OFF, 002, 00F, OFF, 004, OFF, OFF, 007 

DB 

OFF, 005, 005, 005, 004, OFF, OFF, 005 

DB 

006, OFF, OFF, 005, OFF, OOE, 003, OFF 

.RADIX 

OAH 
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Popis ovládání 


Po zavedení programu z kazety (di- 
skety) se zobrazí titulní strana a hlavní 
menu. Menu obsahuje tyto tři základní 
varianty: 


Setup Print Help 

Jednotlivé varianty se volí klávesou od- 
povídající zvýrazněnému písmenu. 

Setup — umožňuje nastavení způsobu 
vysílání řídicích znaků na tiskárnu ve 
formě CR nebo CR+LF a následující 
způsoby kopie obrazovky: 

Normál — normální kopie — obsahu- 
je pouze platné ASCII znaky, grafika 
se zobrazí pomocí odpovídajících 
ASCII znaků, znaky národních variant 
jsou zobrazeny bez diakritických 
znamének. 

Shaded — stínovaná grafický kopie 
— využívá možností tiskáren standar- 
du IBM a Epson. 


Print — provede vytištění načtené 
stránky podle podmínek, nastave- 
ných v předchozím bodě. 

Help — zobrazí seznam písmenových 
příkazů pro standardní ovládání. 
Jsou to tyto příkazy: 

0— S — page # — volba stránky — pro- 
vede se zadáním tříciferného čísla, 
po kterém následuje <CR>. 

A — again — znovu se provede načtení 
zvolené strany. 

C — clock — po předchozí přímé volbě 
podstrany se zobrazí potlačený reál- 
ný čas. 

D — double — horní a dolní polovina 
načtené stránky se postupně zobrazí 
v dvojnásobné výšce. Rotování se 
provádí libovolnou klávesou. 

E — exit — návrat do operačního sy- 
stému mikropočítače. 

H— hold — podržení rotující podstrán- 
ky až do dalšího stisku libovolné 
klávesy. Funkce je indikována pís- 
menem ,H‘ v levém horním rohu 
obrazu. 

1 — index — automatická volba indexo- 
vé stránky (stránka 100, případně 
stránka nastavená pomocí paketu 
27). 


M — menu — ■ zobrazí se menu. 

R — réveal — zobrazí se znaky, které 
jsou při načtení stránky skryty. 

T — time code — přímá volba pod- 
stránky — umožňuje zadat čtyřcifer- 
né číslo podstránky. Po zadání čísla 
stránky stiskneme ,T‘ (na místě reál- 
ného času se zobrazí TimeOOOO), za- 
dáme číslo podstránky a stiskneme 
<CR>. 

<SP> — fast search — volba sdruže- 
ných stránek. V případě, že se pře- 
náší adresy tzv. sdružených stránek, 
které jsou určeny k automátickému 
ukládání do paměti dekodéru, je je- 
jich přítomnost indikována znakem 
t >‘ v levém horním rohu obrazu. Pak 
je možné pomocí klávesy <SP> vyvo- 
lat zobrazení doplňkového 25. řádku, 
přenášejícího přehled sdružených 
stránek. Volba sdružené stránky se 
provede stisknutím odpovídající 
klávesy ,1‘ až ,4‘. Klávesy jsou přiřa- 
zeny barevným skupinám následu- 
jícím způsobem: . 
klávesa ,1‘ „červená" 
kiávesa ,2‘ „zelená" 
klávesa ,3‘ „žlutá" 
klávesa ,4‘ „modrozelená" 


— 

Publikovat celý výpis programu pro příjem teletextu nebylo vzhledem k jeho rozsahu reálné. 
Proto jsme zařídili v rámci projektu MIKROBÁZE, aby nahrávku programu na kazetě dodáva- 
la 602. ZO Svazarmu v Praze. Zatím jsou k dispozici programy pro počítače ZX-Spectrum, 
SORD M5, Sharp MZ800, připravují se další včetně IBM-PC. O program pro svůj počítač si 
tedy napište na adresu: 602. ZO Svazarmu, ul. dr. Z. Wintra 8, 160 00 Praha 6. 

) 


Dlouhý spánek Gajany 

Carola Biedermannová 


Za jasných nocí bliká na obloze malá hvězdička. Ze Země 
není vidět, že kolem ní krouží tři planety. Dvě jsou mrtvé. 
Hromady kamení, mrazivé pustiny. Třetí je živá. Jmenuje se 
Gajana. 

Podnebí Gajany je teplé a kromě oblasti tropických 
dešťových pralesů suché. Rána jsou chladná a svěží, 
poledne horká do úmoru a večery dlouhé, vlahé, sou- 
mračné. Je to mírná planeta, čas plyne tiše a nemá velký 
význam. 

Na Zemi vesele skotačili brontosaurové a jiné těžkotonážní 
potvory, které byly později odkázány do říše pohádek, aby 
ještě později byly s úctou a pietně objevovány jejich kosti. 

Na Gajaně slezl podnikavý opičák nebo zvíře opici 
podobné ze stromu a postavil se na zadní končetiny, aby se 
podíval do dálky nad vysokou trávou gajanské stepi. V trávě 
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uviděl pasoucí se zvíře podobné králíkovi. Napadlo ho vzít 
do ruky klacek a králíka praštit. Králík padl s roztříštěnou 
lebkou. 

Opičák si dřepl vedle králičí mrtvolky a tupě na ni zíral. 
Přitom mimoděk olízl klacek se zbytky králičího mozku. 
Chutnal podobně jako stromoví červi, kterými se živil. 

Na planetě Zemi slezl první podnikavý opičák ze stromu 
v době, kdy lidé na Gajaně podnikali pokusy s chovem zvířat 
a pěstováním rostlin. Když si na planetě Zemi lidé vzájemně 
kradli nasbírané rostliny a ochočená zvířata, na Gajaně již 
stála bílá města. Vysoké ženy s lehce namodralou pletí 
a korunou zlatých vlasů a muži, do pasu nazí a v dlouhých 
bílých sukních procházeli stinnými podloubími ulic kolem 
plně automatizovaných obchodů a pracovali v nekonečně 
bělostných klimatizovaných sálech a chodbách počítačů. Za 
nocí hleděli ke hvězdám. 

Podnebí Gajany je suché a teplé, déšť nezavírá lidi v jejich 
příbytcích. Lidé nezapomněli na široké stepi, ze kterých 
přišli. Ve volných dnech odcházeli do malých domků ve 
stepi, aby žili blíž přírodě. Pěstovali ovoce a zeleninu, žili bez 



jídel, která se sama uvaří a bez vozidel, která se sama řídí. 
Volných dnů přibývalo, počítače ve městech byly čím dál tím 
schopnější a samostatnější. Lidé Gajany se postupně vraceli 
do svých stepí. Počítače pro ně vytvořily rozvážkovou 
, službu. Ale zásobovací vozy se vracely plné, lidé si pěstovali 
potraviny vlastníma rukama a tkali látky na primitivních 
stavech. Nechtěli už trápit děti školou, vzděláním, prací. 
Mysleli to dobře, když jim chtěli dopřát svobodu. Tehdy. 

Podnebí Gajany je teplé, suché a mírné. Jitra jsou tichá 
a osvěžující. Lid Gajany neznal válčení, oblíbenou zábavu lidí 
na Zemi. Stádní pud u něj zanikal. Ve stepích bylo místa 
dost. 

Bílá města Gajany osiřela. 

Počítače postupně rušily výrobu věcí, které nikdo nepotře- 
boval. Automaty a roboty udržovaly opuštěná města nebo 
čekaly, pečlivě nakonzervovány, ve skladištích. Nablýskaná 
vozidla stála v garážích, obchody byly prázdné, jen štěpní 
vítr se proháněl podloubími. V dlouhých chodbách počítačo- 
vých center blikala světélka a svítily obrazovky. Počítače 
čekaly na muže v dlouhých sukních se zlatými vlasy 
k ramenům, na dívky v bílých řízách, protože, jak pravil jejich 
program a jejich zkušenost, jen tým člověka s počítačem 
dává fungující celek. Lidé však odešli. Opustili i své domky, 
které stejně už neuměli pořádně udržovat, a žili v dřevěných 
srubech nebo zahloubených polozemnicích. 

Na Zemi lidé pomalu končili s toulavým pasteveckým 
způsobem života a zvykali si žít v trvalejších sídlištích. Bude 
trvat ještě dlouho, než bude postaveno město u Catal 
HÚyuk, než se zrodí na ostrovech první říše, po které 
zůstanou jen báje o Lemurii, zemi Mu či Atlantidě. 

Počítače na Gajaně žity bez Udí. Měly spoustu času. 
Využily ho na zdokonalení, získaly první záblesky sku- 
tečného vědomí. Bylo to vědomí osamělosti. 

0 údržbu počítačů se staraly roboty, slunce Gajany 
dodávalo do slunečních baterií neomezené množství ener- 
gie. Ale přicházel stesk. Lidé zapomínali na počítače a na 
bílá města, ze kterých odešli do širých stepí za svobodou. 
Města se v jejich vyprávění stávala podivným přetechnizova- 
ným peklem. Po lidech zůstaly linky telefonů, stanice 
bezdrátového spojení. Počítače je měly na dosah. A tak se 
propojily do jednoho planetárního systému. S nadějí, že 
přemohou samotu. Vznikl velký počítač Gajany. 

Na Gajaně znamená čas málo a pro počítač ještě méně. 
— Jen samota odkapává v drobných krůpějích a měří dobu 
čekání. Velká kaluž samoty znamená stesk. Z kaluží vznikají 
potůčky, jezírka . . . Počítač Gajany se odhodlal k činu. 
Poslal za lidmi roboty, aby je přivedly zpátky, když bílá 
města čekají a počítač je stále připraven jim sloužit. 

Lidé Gajany již zapomněli umění práce s kovy. Táhli se 
svými stády od pastviny k pastvině, bydleli ve stanech 
z páchnoucích zvířecích koží, pojídali napůl syrové maso 
a divoké rostliny. Večer se u táborovch ohňů vyprávěly 
pověsti o bílém pekle měst. Nedůvěřivě, se strachem hleděli 
lidé na roboty, které jim neubližovaly a něco říkaly. Jistě to 
byli démoni pekla. 

Řeč lidí se změnila. Bylo v ní málo slov a zněla jinak, než 
bylo uloženo v paměti velkého počítače. Počítač měl v té 
době bohatší slovník než nejchytřejšf z lidí. Možná, že lidé na 
Gajaně se chvíli pokoušeli pochopit, co od nich ty lesklé 
krabice chtějí, než je poslali pryč nevybíravými slovy. Neměli 
ostatně z čeho vybírat a měli spoustu jiných starostí. Hodně 
se jich rodilo, ještě více umíralo, pořád řádily nějaké nemoci, 
bolely je zuby, pokud nějaké měli, dobytek se plašil 
a mouchy otravovaly. 

Velký počítač Gajany usoudil vcelku správně, že lidé se 
nevrátí, že zůstal sám. Hledal řešení. 

Přestal udržovat zbytečná města, ta se po čase zhroutila 
v hromady sutin a z těch pomalu vznikal písek : Zůstala jen 
počítačová centra, sluneční baterie, výroba obslužných 
robotů a hvězdárny. 

Na Gajaně čas mnoho neznamená a pro počítač ještě 
méně. Počítač hleděl k hvězdné obloze. Počítal, přemýšlel, 
možná i snil. Byl pánem planety a myslel na hvězdy. 

1 na Zemi lidé hleděli ke hvězdám, dávali jim jména svých 
bohů, dávali jména souhvězdím. Jedno dostalo jméno 
Pastýř. 

Štěpní vítr rozfoukal po Gajaně písek, který zbyl z bílých 
měst. Přibývalo písečných bouří, ve kterých hynuli lidé 
i zvířata. Stepi vysychaly pod vrstvou vápenatého písku, 
měnily se v pouště. Lidé se přestěhovali do jeskyní a živili se 
lovem drobné zvěře. Usidlovali se na okrajích pralesů, které 
poušť nemohla pohltit, neměla na to dost síly. 

Jeden podnikavý muž, drobný a obratný, vylezl na strom. 
Objevil hnízdo stromových červů, ochutnal a ejhle, podobalo 
se to chuti vzácného králičího mozečku. Navíc našel několik 
pivokých plodů, prostě měl šťastný den. Po dlouhé době se 
dosyta najedl. 


Lidé z Gajany se začali stěhovat do pralesů. Postavili si 
hnízda z větví a bydleli na stromech. Prales se dočkal. 

Počítač vyrobil sérii hlídkovacích zařízení, továrna na 
výrobu obslužných robotů to hladce zvládla a pouště Gajany 
byly ideálním letištěm. Zařízení byla prakticky nezničitelná, 
v neměnném kosmickém vzduchoprázdnu mohla čekat 
neomezenou dobu. Vypočítal vhodná místa — měl 
k dispozici hvězdárny celé Gajany — a rozeslal své hlídky do 
vesmíru. 

Lidé Gajany nemohli ze svých lesních skrýší zahlédnout 
světélka, ztrácející se mezi hvězdami. Velký počítač" Gajany 
se ponořil do dlouhého čekání. Možná i snil. A zatím poušť 
zakryla poslední zbytky civilizace, poušť se srdcem z kovu 
a polovodičů, kterou daleko od sebe probleskovaly povrchy 
slunečních baterií .. . 

Na Zemi Atlantis skončila v rozbouřených živlech. Harrapa 
a Mohendžoro prošly časem, sumerské paláce pokryl prach 
a hlína. Jako brontosauři, i říše Chetitů byla vykázána do 
pověstí, aby po dlouhém čase byla archeology pietně 
odkryta. Egypťané postavili své pyramidy, pro které čas 
mnoho neznamená. Kréťané ovládali moře a jako sport 
pěstovali skok přes býka, dědictví bezejmenného města od 
Catal HÚyuk. Řekové postavili své bílé chrámy, které časem 
Turci opět zboří, a tesali sochy, které zůstanou měřítkem 
krásy v době, kdy jedna ze sond Gajany začne plnit svůj 
program. 

V dešťových pralesích Gajany potomci lidí sestupovali na 
zem jen zřídka. V tom případě se pohybovali po čtyřech 
chápavých končetinách. Jednomu druhu se vyvinul chápavý 
ohon, což se pro život na stromech bezesporu hodilo. Děsili 
se otevřeného prostoru, za kterým odešli ze svých měst 
a který se stal pouští. Vzpomínka na dávnou civilizaci v nich 
vyhasla. Jejich slovník se skládal z posunků, skřeků, 
kňourání a očichávání. 

Na Zemi začala a skončila doba křesťanského temna. 
Učení mnichové Campanella, Bruno a Kepler a po nich učení 
laikové Galileo a Herschel obraceli zrak lidstva ke hvězdám, 
což nebylo právě snadné. Lidstvo se raději bavilo válčením 
a jinými zmatky. Byl vynalezen parní stroj, objevena 
elektřina, pracoval Edison a Marconi. Byl objeven bezdráto- 
vý přenos zpráv. Vesmírný posel začal plnit program. 

V roce 1927 podle pozemského počítání času byl již 
v éteru slušný provoz. Sonda vysílala na Gajanu všechno, co 
zachytila, ostatní bylo starostí velkého počítače. Určitě s tím 
měl starostí dost. Sonda zatím plnila svůj druhý úkol. 

Potomci lidí Gajany obrostli zlatou srstí a vesele skákali 
z větve na větev, aniž by pocítili nespokojenost se svým 
osudem, když Taylor a Young zaznamenali zpoždění odrazu 
radiových signálů. V roce 1928 se totéž povedlo Halsovi 
a Strómerovi, jev podrobně prozkoumal Van der Pol, který 
zjistil zpoždění ozvěn od tří do patnácti sekund a pozměněné 
trvání některých signálů, zatímco frekvence vždy souhlasila. 

Jenže lidstvo mělo jiné starosti. 

V roce 1960 oživil problém zpožděného odrazu Bracewell 
v časopisu Nátuře. V roce 1965 si J. Strong uvědomil, že 
místo odrazu je současně jedním z liberačních — rovno- 
vážných bodů soustavy Země — Měsíc a tedy nejlogičtějšfm 
místem například pro umístění meziplanetární sondy. V roce 
1973 napadlo Lunana přenést číselnou řadu zpožděných 
ozvěn do grafu. Před jeho mírně udiveným zrakem se 
objevila mapa souhvězdí Pastýře, jak by se jevila při pohledu 
ze Země před třinácti tisíci léty. 

Jenže souhvězdí Pastýře je pro lidi Země trochu z ruky 
a lidé mají spoustu jiných starostí a málo času. Na Zemi čas 
znamená hodně. 

V roce 2020 lidé opět jednou vesele válčili, prp změnu 
o kousek území planety Mars, které v podstatě k ničemu 
nebylo. Znechucený pilot bojové kosmické lodi se vracel na 
základnu, šarvátka se protáhla, zmeškal rande s bezvadnou 
kočkou, byl unavený, dostal vynadáno a zaražené vycházky. 
Vztekle střílel po všem, co mu přišlo na mušku. Pokaždé 
trefil. 

Ze zasaženého meteoru vyšlehl prudký záblesk, jehož 
směr pilot nezaznamenal. Fuj, to jsem se lekl, bylo všechno, 
co ho napadlo. 

V pouštích Gajany čas nic neznamená, poušť nemění svou 
zlatužlutou tvář. V tropických dešťových pralesích svobodně 
skotačí několik opic. V písku pouští občas probleskne 
povrch sluneční baterie . Skryt pod pískem sní počítač své 
sny. 

V soustavě dvou těles, například Země — Měsíc, je pět 
libračních bodů. 
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ÉHO DISKU 


Ing. Aleš JUftfK, FE VUT, Božetěchova Z 612 00 Brno 

V současné době je již známo několik úprav mikropočítačů ZX Spectrum pro práci pod operačním systémem 
CP/M. Tento článek je věnován nejen těm, kteří si postavili mikropočítač kompatibilní se ZX Spectrum podle [1], 
ale také těm, kteří chtějí prov o z o vat na svém osm i bi tovém mi kr o počít ači oper ač ní systém CP/M, který je 
v současném počítačovém světě bezesporu nejrozšířenějším operačním sy sté me m, orien t o v an ým na osmibitové 
mikr op očít a če. 

Vzhledem k tomu, že existuje již několik verzí tohoto operačního systému, je navrhovaná verze upravena tak, aby 
pod systé m e m mo hly pracovat všechny p ro g r a my , dostupné v tuzemsku i v z a hrani č í, používající důsledně modulu 
BIOS. Menší problémy vytváří pouze výstup na obrazovku (konzolu), protože u mikropočítače ZX Spectrum 
nelze dosáhnout čitelného zobrazení více než 64 znaků na řádek (nikoli standardních 80). Zato zde lze použít 
speciální grafické funkce, které je možno implementovat do modulu BIOS a při psaní vlastních programů využívat 
grafický výstup na obrazovku. Tento způsob byl vyzkoušen několika programy a poskytuje rozmanité možností při 
tvorbě programů pod operačním systémem CP/M. 


Obecný popis systému CP/M nebu- 
de v tomto článku uveden, zájemce 
najde podrobné informace v [2] a [3]. 
Kromě toho je tento operační systém 
dostatečně znám, takže budou 
uváděny jen změny proti standardnímu 
provedení, článek nelze brát jako uce- 
lený stavební návod, i když pro majitele 
počítače podle [1] na něj tak lze 
pohlížet. Je z něj možno čerpat inspira- , 
ci pro další zájemce o operační systém 
CP/M, zálohovaný ramdisk nebo řadič 
floppydisku včetně kanálu DMA. Záro- 
veň je možná aplikace pouze některých 
částí tohoto článku (tzn. CP/M jen 
s ramdiskem a kazetovým magnetofo- 
nem nebo CP/M jen s jednou nebo více 
disketovými jednotkami). 

1. POPIS OBVODOVÉHO 
ŘEŠENÍ 

Obvodové řešení vychází z faktu, že 
operační systém CP/M potřebuje pro 
svou instalaci paměťový prostor z pa- 
měti RWM přes celý základní adresový 
prostor mikropočítače, tj. 64 kB. Někdy 
se uvádí, že BIOS může být v paměti 
ROM. Z hlediska kompatibility s růz- 
nými moduly BDOS, z nichž většina 
vyžaduje v oblastí BlOSu od adresy 
0FB00H dolů několik desítek bajtů 
volného prostoru pro zásobník, je 
vhodné, aby celý paměťový prostor byl 
realizován z pamětí RWM. Pro majitele 
mikropočítače podle [1] je tento poža- 
davek splněn ovládáním vnitřní paměti 
signálem SPIN a překrytím dolních 
32 kB odpovídající částí pamětí „půjčo- 
vané" z ramdisku. Pro majitele Spectra 
s 80 kB vnitřní pamětí RWM je nutno 
pouze přizpůsobit přepínání této pa- 
mětí signálem SPIN tak, aby při aktivní 
úrovni tohoto signálu byla paměť ROM 
a paměť video překryta pamětí RWM. 
Majitelé neupraveného Spectra mohou 
ovládat pomocí tohoto signálu přídav- 
nou přepínací logiku tak, aby při aktivní 
úrovni signálu SPIN obvod ULA měl na 
vstupech AB14 a AB15 úrovně logické 
nuly a zároveň vyblokovat vnitřní pa- 
měť ROM přivedením logické jedničky 
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na vstup CSROMGEN. To lze jednodu- 
še zajistit přerušením příslušných adre- 
sových vodičů u vstupů obvodu ULA 
a přidáním jednoho obvodu např. typu 
74LS08. 

1.1 Popis obvodů ramdisku 

Návrh obvodů ramdisku vychází 
z předpokladu, že s pamětí ramdisku 
se bude komunikovat jako se stránko- 
vou systémovou pamětí, nikoli přes 
port instrukcemi vstupu a výstupu. 
Velikost stránky byla pro co nejjedno- 
dušší obvodové řešení zvolena 32 kB. 
Pro „půjčování" systému (překrytí 
ROM a video RAM) byla zvolena strán- 
ka č. 0 (z hlediska obvodové jednodu- 
chostí lze stejně použít i stránku 
s adresou nejvyšší, ale navrhovaný 
ramdisk může mít i menší paměťovou 
kapacitu). 

Obvodové řešení ramdisku je na obráz- 
cích 1 až 4. Umožňuje následující 
funkce: 

1) při komunikaci s ramdiskem je 
příslušná třicetídvoukilobajtová stránka 
připojena do paměťového prostoru 
mikropočítače od adresy 04000H. 

2) pokud se požaduje připnuti sy- 
stémové paměti RWM do celého adre- 
sového prostoru mikroprocesoru, při- 
pne se od adresy 00000H nultá stránka 
ramdisku. Protože při použití ope- 
račního systému CP/M není možné 
používat tuto stránku jako součást 
ramdisku a systémové pamětí zároveň, 
je programově v BlOSu zablokováno 
její použití v ramdisku. 

3) při aktivaci funkce BOOT (zavede- 
ní systému a jeho studený start) je do 
spodní části adresového prostoru při- 
mapována paměť ROM se zaváděčem 
systému z diskety a do horní poloviny 
(od adresy 08000H) je připojena paměť 
RWM. Po nahrání systému program 
skočí do BlOSu, který odepne paměť 
ROM a uskuteční studený start sy- 
stému. V současné době zatím modul 
BIOS vyžaduje přítomnost obsahu pa- 
měti ROM Spectra (využívá se z ní 
scroll obrazovky, funkce PLOT, DRAW 
a BELL). Zaváděč systému byl doplněn 
do volného prostoru paměti ROM. 

Podle těchto požadavků dostáváme 
tedy signál odepínající vnitřní paměť 
RWM jako součet tří signálů (viz obr. 1). 


SPI = RAMDISK + (EXPRAM.A15N) + 
+ CSROM (1) 

ad 1) Funkce obvodů podle tohoto 
bodu je zabezpečena ovládáním sig- 
nálu SPIN pomocí signálu RAMDISK 
(aktivní úroveň tohoto signálu signalizu- 
je, že zrovna probíhá komunikace 
s pamětí jako s ramdiskem): 

RAMDISK = RAMD . (A14.A15N + 

+ A14N.A15) (2) 

kde signál RAMD je výstup 1013 
(obr. 1) a signály A14 a A15 jsou 
příslušné bity adresové sběrnice. Do 
obou polovin 1013 se výběrovým sig- 
nálem CS4N (instrukcí OUT (4), A) 
zapisuje informace ze čtvrtého 
a pátého bitu datové sběrnice, přičemž 
aktivní jsou v logické jedničce. Pomocí 
čtvrtého bitu se ovládá připojeni pří- 
slušné stránky ramdisku a pomocí 
pátého bitu se ovládá mapování nulté 
stránky paměti ramdisku do prvních 
třiceti dvou kB paměťového prostoru, 
pokud se používá část paměťové kapa- 
city ramdisku jako mapovaná systémo- 
vá paměť [viz ad 2)]. Obvod 1012 je 
použit jako čtyřbitový registr adresy 
stránky ramdisku. Jeho výstupy jsou 
hradlovány signálem RAMDISK, čímž 
je zabezpečen výběr nulté stránky, 
pokud není signál RAMDISK aktivní a je 
komunikováno s pamětí ramdisku. 

ad 2) V okamžiku, kdy je požadována 
komunikace s nultou stránkou pamětí 
ramdisku jako se systémovou pamětí, 
je aktivní signál EXPRAM (výstup druhé 
poloviny 1013). Ten aktivuje signál 
SPIN, pokud je požadován přístup do 
spodní poloviny systémové pamětí 
[v rovnici (1) je to vyjádřeno druhým 
sčítancem]. Výstupy registru stránky 
jsou blokovány pouze při aktivním 
signálu RAMDISK. V případě, že jsou 
aktivovány oba signály, je obsazení 
pamětí následující: 

OOOOOH až 03FFFH — spodní polovina 
nulté stránky ramdisku jako systémová 
paměť, *- 

04000H až OBFFFH — aktuální adreso- 
vaná stránka ramdisku, 

OCOOOH až OFFFFH — vnitřní systémo- 
vá paměť mikropočítače. 


* 



OASO 
0AS1 
OAS 2 
CASHO 


SPÍ 


CASLO 


CSROM 


BMPX 

RFSH 

WĚ 

RAŠ 

AMPX 

A6fíF 


Je vidět, že aktivace ramdisku má 
prioritu, což je nutné kvůli jednoduché 
komunikaci s ramdiskem. Připínáni 
stránky ramdisku doprostřed adreso- 
vého prostoru mikropočítače byto zvo- 
leno proto, aby se zachovala dostup- 
nost počátku paměti, kde jsou umís- 
těny odskoky a pracovní prostor ope- 
račního systému, a konce paměti, kde 
je umístěn systém. 

ad 3) Pokud si vytvoříme BIOS tak, že 
nebude třeba spolupráce s pamětí 
ROM Spectra, nebo tařk, že v něm bude 
obsažen zaváděč, který do paměti 
zavede obsah paměti ROM Spectra, 
můžeme používat zavádění systému 
z diskety zaváděčem v paměti EPROM. 
Zavádění systému je inicializováno při- 
pojením signálu SBOOTN na úroveň 
log. 0. Tímto signálem se nastaví klopný 
obvod 1015 (obr. 1) a vygeneruje signál 
RESETN. Do spodní poloviny paměťo- 
vého prostoru se připojuje paměť 
EPROM (obr. 2) a v horní polovině 
paměti mikroprocesor spolupracuje 
s horní polovinou vnitřní systémové 
paměti mikropočítače. Pozorl Při využí- 
vání této funkce je nutno zajistit ode- 


pnutí pamětí PROM s páskovým za- 
váděčem, nejlépe pomocí dvojitého 
tlačítka, jehož jedna polovina bude 
nastavovat 1015 (obr. 1) a druhá 
polovina bude nulovat klopný obvod 
102 (obr. 1 v (1J), například nulováním 
signálu CSRESN (obvod 3205 bez 
potíží vydrží na jednom výstupu krátko- 
dobý zkrat) nebo krátkodobým připoje- 
ním log. 1 na hodinový vstup tohoto 
obvodu. 

Další obvody na obr. 1 generují 
signály CASLO a CASHO (výběrové 
signály pro jednotlivé osmice dynamic- 
kých pamětí) a signály ovládající multi- 
plexery adresy dynamických pamětí. 
Dvojice klopných obvodů 1014 generu- 
je osmý bit osvěžovací adresy dyna- 
mických pamětí. 

Na obr. 2 je také obvod, který vytváří 
výběrový signál pro paměť EPROM 
podle vztahu 

CSROM = A15N . BOOT (3) 

Na obr. 2 je zapojení muttiptexerů 
adresy dynamické paměti RWM, které 
muitipiexují vodiče adresové sběrnice 


mikropočítače, hradlované výstupy re- 
gistru adresy stránky ramdisku a osmý 
bit osvěžovací adresy dynamické pa- 
měti RWM. Integrační člen RC zpožďu- 
je sestupné hrany signálu CASN a tím 
zpožďuje otevření výstupních datových 
budičů dynamických pamětí. Jeho 
použití bylo vynuceno relativně poma- 
lou reakcí obvodu 3212 (1036 na 
obr. 3 v [1]) na konec výběrového sig- 
nálu. Docházelo ke kolizi na datové 
sběrnici mikropočítače a tím i k havárii 
celého systému (programové). Déle je 
na obr. 2 paměť EPROM s disketovým 
zaváděcím programem. Je naznačeno 
použití paměti typu 2716 s kapacitou 
2 kB, ale je možno použít beze změny 
zapojení paměť s kapacitou až 32 kB 
(tj. buď typ 27256 nebo odpovídající 
kapacitu sestavit z pamětí o kapacitě 
menší). V tomto případě by bylo možno 
celý systém včetně pamětí ROM Spec- 
tra „natahovat** blokovými přenosy 
z této paměti EPROM. 
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Obr. 4. Zálohování paměti 


Na obr. 3 je zapojení dynamických 
pamětí RWM (celkem dvě osmice 
obvodů 41256 nebo ekvivalentních), 
dávající •celkovou kapacitu 512 kB. 
Jsou zde také rezistory, které oddělují 
výstupy osvěžovacího čítače (820R) 
a multiplexerů adresy dynamické pa- 
měti RWM (47R). Tuto paměf lze 
sestavit i z obvodů s menší pamětí, 
popř. jen z jedné osmice obvodů, je 
však nutno patřičně přepočítat kon- 
stanty ramdisku v tabulce disku 
A v BIOSu a případně upravit i adresaci 
pamětí na vstupech multiplexerů adres 
dynamické paměti. 

Na obr. 4 jsou obvody logiky záloho- 
vání obsahu dynamické paměti RWM. 
Základ je tvořen integrovanými obvody 
— komparátorem napětí 1059, čítačem 
1058 (v provedení CMOS) a čtveřicí 
hradel NAND (také v provedení 
CMOS). 

Pokud je napájecí napětí nad mezí, 
kdy začíná překlápět komparátor 1059, 
jsou na adresové vstupy dynamických 
pamětí přiváděny výstupy multiplexerů 
1034—36. V okamžiku dosažení kom- 
parační úrovně je procesor požádán 
o přidělení sběrnic (aktivací signálu 
BUSRQN) a v okamžiku potvrzení žá- 
dosti (signálem BUSAKN) je překlopen 
klopný obvod z hradel NAND 1057 
a odepnuto napájení lOI, 34, 35 a 36. 
Tímto postupem se spolehlivě zabrání 
náhodnému přepsání obsahu dynamic- 
kých pamětí během nabíhání a vypínání 
zdroje. Integrované obvody TTL mají 
bez přítomnosti napájecího napětí vel- 
mi velký výstupní odpor, takže se 
ehovají jako by byly ve stavu vysoké 
impedance („třetí stav"). Experimentál- 
ně bylo zjištěno, že toto řešení je 
spolehlivější, než použití obvodů 
s třístavovými výstupy, které se při 
vypínáni napájecího napětí mohou mži- 
kově aktivovat a způsobit nežádoucí 
změnu obsahu některých paměťových 
buněk. 


V průběhu zálohovacího cyklu jsou 
napájeny pouze obvody pamětí RWM 
a obvody 1057 až 59. Z jednoho hradla 
1057 je vytvořen multivibrátor, který má 
periodu při napájecím napětí 2,7 V asi 
1 hS. Výstupy čítače 1058 jsou nyní 
připojeny na adresové vstupy dynamic- 
kých pamětí, signál RASN je zkrácen 
asi na 0,5 až 1 jis při napětí 2,7 V. Nové 
typy pamětí mají totiž podstatně menší 
odběr, pokud nejsou aktivovány. Obvo- 
dy zálohování byly vyzkoušeny s několi- 
ka různými typy dynamických paměti 
od různých výrobců — odběr z náhrad- 
ního zdroje byl mezi 20 a 45 mA při 
napětí na pouzdru paměti 3,0 V. Při 
tomto napětí nebyl zjištěn výpadek 
uchovávané informace ani v jednom 
případě, každá ze zkoušených osmic 
pamětí byla takto provozována po dobu 
dvou hodin. 


1.2 Obvody připojeni disketové 
mechaniky 


Obvody připojení disketové mecha- 
niky jsou znázorněny na obr. 5 až 7. Pro 
ovládání disketové mechaniky jsou 
nezbytně nutné obvody na obr. 5 0 6, 
obvody na obr. 7 jsou obvody kanálu 
DMA, které jsou vhodné při vyšších 
přenosových rychlostech pro záznam 
na disketu (například mechaniky 
5 1/4" s kapacitou 1,2 MB — záznam 
HD-High Density). Při použití mechanik 
s poloviční hustotou záznamu, označo- 
vaných u formátů IBM DD (Double Den- 
sity), není řadič kanálu DMA nutný, pře- 
nos dat je možno provádět programo- 
vě. 

Na obr. 5 jsou obvody hodinové 
základny řadiče floppy diskové mecha- 
niky, separátoru dat a prekompenzace 
zápisu na disketu. Tyto obvody jsou 
navrženy tak, aby data na disketě byla 
záznamově kompatibilní se záznamem 
formátu IBM System 34 Double Density 


(MFM), používaným v počítačích řady 
PC-XT. 

Prvním článkem hodinové základny 
je krystalem řízený multivibrátor 
z invertorů TTL, kmitající na kmitočtu 
16,000 MHz. Klopným obvodem 1015, 
šestnáctkovým čítačem 1019 a klop- 
ným obvodem 1018 jsou vytvářeny 
hodinové signály pro řízení číslicového 
fázového závěsu, řadiče FD a řadiče 
DMA. 

Obvody prekompenzace zápisu dat 
jsou tvořeny čtyřbitovým registrem 
1020 a polovinou dvojitého čtyřkanálo- 
vého multiplexerů 1021. Mají za újcol 
zvýraznit odstup mezer a jedniček 
nahrávaných dat pro snížení vlivu ko- 
lísání rychlosti otáčeni diskety v diske- 
tové mechanice. 

Obvody separátoru dat mají za úkol 
oddělit data od hodin v signálu, jdou- 
cím z diskové mechaniky. Protože 
záznam na disketu je jednostopý, je 
nutno použít speciální kódováni, při 
kterém je možno zaznamenat do jed- 
noho přenosového kanálu data i hodiny 
zároveň. Vzhledem ke kolísání otáček 
disketové mechaniky totiž nelze zazna- 
menávat bloky sériových dat bez za- 
kódování synchronizačního hodino- 
vého kmitočtu. Obvody separátoru dat 
se skládají z řízeného číslicového fázo- 
vého závěsu (1022, 23, 24) a vlastního 
separátoru dat, který je tvořen klopným 
obvodem 1018, hradly 1011 a klopným 
obvodem 1022. Fázový závěs je řízen 
signálem VCO z řadiče, kterým se 
povoluje zasynchronizování fázového 
závěsu. Ten se díky obsahu paměti 
PROM 1024 zasynchronizuje již při 
příchodu druhého impulsu a je v tomto 
stavu udržován, pokud je signál VCO 
aktivní. Výstupem jsou dva signály 
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Obr. 5. Hodiny, separátor a prekompenzace zápisu 


— DW (data window — datové okno) 
a RDDATA (read data — čtená data), 
které jsou vedeny ke zpracování do 
řadiče typu 18272. 

Na obr. 6 je schéma propojeni řadiče 
typu 18272 s ostatními obvody, pomoc- 
ná hradla řadiče a registr ovládání 
disketových mechanik. Je vhodné při- 
pomenout, že řadič typu 18272 je 
v RVHP vyráběn v BLR (označeni CM 
609) a v NDR (U8272D). Dále se na trhu 
objevuje pod označením nPD765, např. 
od firmy NEC. Bližší informace o tomto 
obvodu najdou zájemci v [41. 

Registr ovládáni disketových mecha- 
nik je tvořen čtyřbitovým registrem 
1040. Využity jsou tři bity, dva pro výběr 
příslušné mechaniky a jeden pro 
ovládání motoru. Mechaniky musí mít 


26 mikroelektronika 


nastaveny vnitřní propojky tak, aby se 
zapnutí motoru ovládalo součinem sig- 
nálů spuštění motoru a výběru mecha- 
niky. Přitažení hlavičky se ovládá souči- 
nem signálů výběru mechaniky a vnitřní 
připravenosti mechaniky. V BIOSu není 
využíván signál READY mechaniky, 
protože ne všechny mechaniky jej 
poskytují, ale počítá se s maximální 
možnou dobou, za kterou je mechanika 
od aktivace připravena (u použité me- 
chaniky FD1053 firmy NEC to bylo 
0,8 s). 

Na obr. 7 je schéma zapojení řadiče 
kanálu přímého přístupu do paměti 
(DMA) (není nutný při použití zápiso- 
vého hodinového kmitočtu 500 kHz). 
Lze jej ale zapojit a v patici řadiče DMA 
(8257), pokud není kanál přímého 
přístupu do paměti využíván, propojit 
následující vývody na příslušné logické 
úrovně: 

ĎŘQ2 — log. 0 


TC — log. 0 

DACK2N — log. 1 
HRQ — log. 0 

AEN — log. 0 

Obvody řadiče přímého přístupu do 
paměti jsou tvořeny vlastním řadičem 
(1033) a posuvným čtyřbitovým regis- 
trem 1030. Ten zajišťuje vždy na jeden 
požadavek o přenos dat kanálem DMA 
trvání signálu DRQ2 po dobu čtyř 
period hodinového signálu. To zabez- 
pečuje přeneseni právě jednoho bajtu 
řadičem. Registr horní poloviny adresy 
1031 zajišťuje přítomnost horních osmi 
adresových bitů na adresové sběrnici, 
protože horní polovina adresové sběr- 
nice je muttiplexována s datovou. Hra- 
dla AND obvodu 1029 spolu s oddělo- 
vačem 1032 zajišťují jednoduché 
a v tomto případě postačující překódo- 
vání řídící sběrnice mikroprocesoru 
typu 8080 na řídící sběrnici Z80 a zpět. 
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Obr. 7. Řadič DMA pro FDC 
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2. POUŽITÉ SOUČÁSTKY, 
PRAKTICKÉ PROVEDENÍ 

Použité součástky byly z řady 
74LS ... Co se týče praktického prove- 
dení, platí zásady uvedené v [i]. Propo- 
jovací kabel musí být co nejkratší, 
pokud možno typu „twist" nebo ale- 
spoň mezi každými dvéma živými vo- 
diči musí být tažena zem. Musíme si 
totiž uvědomit, že vlastně prodlužujeme 
sběrnici procesoru. 

2.1. Seznam použitých int. obvodů 


74LSOO 
74LS04 
74LS05 
74LS08 
74LS10 
74LS38 
74LS74 
74LS109 
74LS153 
74LSt57 
74LS174 
74LS175 
74LS193 
74188 
8286 
3216 
18257 
18272 
2716 
41256 
4011 
4020 
MÁC1 11 


10 1, 2, 3, 4, 5, 6, 11 
10 7, 8, 25, 28 
10 16 

10 9, 10, 29, 38 
10 17 
IO 26, 27 
IO 13, 14, 15, 22 
IO 18 
IO 21 

IO 34, 35, 36 
IO 23 

IO 12, 20, 30, 40 

IO 19 

10 24 

IO 31 

10 32 

10 39 

10 33 

10 37 

10 41—56(16 ks) 

10 57 
10 58 
10 59 


Obr. 6. Připojení disketové mechaniky 



























3. POPIS PROGRAMOVÉ 
ČÁSTI 

Úvodem této části článku je vhodné 
připomenout základní zásady organiza- 
ce souborů na disku v operačním 
systému CP/M. Logická zařízení a části 
souborů jsou ta, na která se obřad 
modul BDOS, zatímco modul BIOS 
zajišťuje propojení požadavků modulu 
BDOS dále na konkrétní fyzická zaříze- 
ní (disketové mechaniky) a fyzické 
soubory na nich. Z tohoto je zřejmé, že 
při použití vhodných překódovávacích 
algoritmů v modulu BIOS je možná jiná 
struktura dat na fyzických discích, než 
kterou předpokládá BDOS. Je dokonce 
možné mít na každé z šestnácti 
možných disketových mechanik jiný 
formát záznamu dat. Operační systém 
CP/M počítá s následující logickou 
strukturou záznamu dat na disketu: 

věta — záznam dlouhý 128 bajtů, 

alokační blok — počet vět (konstanta 
BLS viz dále), které jsou alokovány 
(vyhraženy) pomocí jednoho bitu 
v bitové alokační mapě disku. lato 
konstanta je vždy mocninou dvou, 
minimálně je rovna osmi. 

Fyzická organizace dat na disku je 
následující: 

sektor — minimální záznam, který lze 
na disk umístit, 

stopa — datový objem dosažitelný bez 
pohybu hlavičky (tato definice má vý- 
znam pouze pro disketovou mechani- 
ku, avšak i v případě ramdisku se tento 
pojem používá, i když zde ztrácí svou 
fyzikální podstatu). 

Pokud se nepoužívá klasicky zfor- 
mátovaná 8" disketa, je ve velké větši- 
ně případů fyzický sektor větší než věta, 
je jejím celistvým násobkem. Obdobně 
alokační blok bývá celistvým násob- 
kem fyzických sektorů. Pro překódo- 
vání se používá tzv. blokující — deblo- 
kující algoritmus. Kostra použitého al- 
goritmu je převzata z [2]. 

Výpis programu BIOS (Basic Input- 
Output System) je připojen. Předpo- 
kládá se následující umístění systémo- 
vých modulů v paměti: 

CCP — od adresy 0D600H 
BDOS — od adresy ODEOOH 
BIOS — od adresy OECOOH 

Ramdisk má kapacitu 480 kB (32 kB 
je nultá stránka, o níž již byla řeč 
v předešlé části článku), je formáto- 
ván po stopách o velikosti 4 kB, první 
dvě stopy jsou vyhrazeny pro systém, 
skutečná kapacita ramdisku je tedy 
427 kB. S touto kapacitou je také nutno 
počítat při tvoření konstant v tabulce 
DPB pro ramdisk — velikost alo- 
kačního bloku je zvolena 2 kB (tj. při 
dané kapacitě nejmenší možný). Pokud 
se aplikuje jiný ramdisk (o jiné kapaci- 
tě), je nutno přepočítat konstanty tabul- 
ky DPB (Disk Parameter Block). Totéž 
platí i pro použiti jinak formátované 
diskety. Jednotlivé položky tabulky 
DPB mají následující význam: 

SPT — (Sec tors Per Track) počet 
sektorů na stopu, přičemž sektorem se 
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myslí vždy 128 bajtů. Pokud je disketa 
oboustranná, tak se většinou uvažují 
jako stopa oba povrchy, tzn. dvoj- 
násobná kapacita. 

BSH — (Block SHift) posun bloku. Je to 
dvojkový logaritmus počtu vět v alo- 
kačním bloku. 

BLM — (Block Mask) maska bloku. 
Počet vět v alokačním bloku minus 
jedna. Je to vlastně adresa poslední 
věty v alokačním bloku. 

EXM — (EXtend Mask) maska rozšíře- 
ní. Počet logických rozšíření (po 16 kB), 
adresovaných jednou položkou adre- 
sáře minus jedna. Je dána takto: 


BLS 

DSM <256 

DSM >=256 

1 kB 

0 



2 kB 

1 

0 

4 kB 

3 

1 

8 kB 

7 

3 

16 kB 

15 

7 


DSM — (Disk Size Max) maximální 
velikost disku, to je celková kapacita 
diskové jednotky v alokačních blocích 
minus jedna (adresa posledního alo- 
kačního bloku). 

DRM — (DiRectory Max) — maximální 
velikost adresáře, počet položek, adre- 
sáře minus jedna. Adresář musí zabírat 
celistvý počet alokačních bloků. Platí: 

DRM = (X * (BLM + 1) * 4) — 1 

kde X je počet alokačních bloků adre- 
sáře. 

AL0, AL1 — (ALIocated 0,1) alokováno 
0,1 . Jedná se o první dva bajty alokační 
mapy disku. Jednička v 7. bitu 0. bajtu 
rezervuje 0. blok atd. 

CKS — (ChecK Sum) kontrolní součet. 
Počet sektorů adresáře testovaných při 
zápisu na pracovní médium. 

OFF — (OFFset) posunutí. Jedná se 
o počet stop rezervovaných na počátku 
disku. Většinou jsou tyto .stopy po- 
užívány pro uložení systému. 

Podrobný popis výpisu programu 
BIOS neuvádím, funkce jednotlivých 
částí programu je objasněna komentáři 
přímo ve výpisu zdrojového textu. 


Další částí programového vybavení je 
program výstupu na obrazovku v módu 
64 znaků na řádek. Tento program je 
uveden také ve výpisu zdrojového textu 
v assembleru, BIOS předpokládá jeho 
umístění nad videopamětí od adresy 
06800H v „zakryté" části paměti. Proti 
jiným znakovým výstupům na obrazov- 
ku je program doplněn částí umožňující 
zpracovávání řídicích znaků podle 
ASCII. Před jeho voláním se musí zrušit 
mapování paměti a po provedení výstu- 
pu opět obnovit. Přerušení není nutno 
zakazovat, je používán přerušovací 
mód 2 a obsluha se provádí v horní 
polovině paměti. To však platí pouze 
pokud máme zaručeno, že ukazatel 
zásobníku míří do horní poloviny pa- 
měti, což není vždy splněno. Z toho 
důvodu je nejjednodušším řešením 
přerušení zakázat. Tabulka generátpru 
znaků je použita z programu D-Writer 
666. ZO Svazarmu, je však možno 
použít každý generátor s českými zna- 
ky, který má znaky umístěny v horní 
polovině bajtu a pro jeden znak potře- 
buje osm bajtů. Tabulku generátoru 
znaků získáme z programu D-Writer 
např. po povelu EXT.-B povelem SAVÉ 
„genchrcs" CODE 35708,1064 (nahra- 
jeme na pásku). 


2.1 Vytvořeni a oživeni systému 

Pro první pokusy předpokládejme, 
že máme na pásce nahrané následující 
programy ve formátu ZX Spectrum: 

1. Program znakového výstupu na 

obrazovku(nahráváme od 06800H). 

2. Generátor znaků (nahráváme od 

07000H). / 

3. Modul CCP (nahráváme od 0D600H). 

4. Modul BDOS (nahráváme od 

ODEOOH). 

5. Modul BIOS (nahráváme od 

OECOOH). 

Před jejich nahráváním zakážeme 
přístup BASICu do oblasti systému 
např. povelem CLEAR 24000. Po na- 
hrání všech těchto souborů můžeme 
teoreticky začít pracovat pod ope- 
račním systémem CP/M. Po spuštění 
systému příkazem RANDOMIZE USR 
65408 se smaže obrazovka a vypíše se 
otazník. Pokud odpovíme y, proběhne 
formátování ramdisku, jinak není ram- 
disk formátován (při startu po výpadku 
napájecího napětí), je vypsáno úvodní 
hlášení BIOSu a systém se ohlásí např. 
0A>. Nyní však potřebujeme disketo- 
vou mechaniku a nahranou disketu se 
základním programovým vybavením. 
Pokud jsme se nerozhodli pro stavbu 
řadiče disketové mechaniky (ať už 
z jakýchkoliv důvodů) a máme pouze 
ramdisk a kazetový magnetofon, je 
třeba nejprve vytvořit program TA- 
PE.COM, který nám umožní komunika- 
ci s magnetofonem pod systémem 
CP/M. Tento program je nutno vytvořit 
pod operačním systémem Spectra, 
přeložit, nahrát do paměti a pomocí 
krátkého pomocného programu ve 
strojovém kódu jej přenést do. části 
paměti od adresy 001 OOH. Zde může- 
me s výhodou využít možností připnout , 
si nultou stránku ramdisku doprostřed 
systémové paměti a program, který má 
být nahrán od adresy 001 OOH do ní 
nahrajeme od adresy 081 OOH. Při při- 
pnutí nulté stránky jako systémové 
paměti bude již umístěn od adresy 
001 OOH. Prvním příkazem, který mu- 
síme zadat po ohlášení se systému, je 
SAVÉ 8 TAPE.COM. čímž nahrajeme 
tento program na ramdisk. Můžeme 
využívat (nyní již poměrně velkou), 
programovou základnu používanou 
majiteli počítačů SHARP, pracujících 
pod operačním systémem CP/M 
s ramdiskem a kazetovým magnetofo- 
nem. Prostřednictvím mgf pásky lze 
lehce vyměňovat programy a data mezi 
majiteli těchto dvou různých typů po- 
čítačů, po připojeni 8" disketové me- 
chaniky lze vyměnit programy praktic- 
ky se všemi majiteli profesionálně 
vyráběných počítačů, pracujících pod 
systémem CP/M. 
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; podprogramy BIQSu 

355 
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BDOT 

360 
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365 


JP 

WBOOT 

370 


JP 

CDNST 

375 


JP 

CONIN 

380 


JP 

CONQUT 

385- 

JP 

LIST 

390 


JP 

PUNCH 

395 


JP 

REALER 

400 


JP 

HOHE 

405 


JP 

SELLSK 

410 


JP 

SETTRK 

415 


JP 

SETSEC 

420 


JP 

SETLHA 

425 


JP 

READ 

430 


JP 

WRITE 

435 


JP 

LISTST 

440 


JP 

SECTRA 

445 


JP 

FORHF 


450 

455 {tabulky pro disky 
460 

465 ; raadisk 480 kbyte 
470 LPBASE 


475 

LEFW 

0,0 

945 




480 

DEFN 

0,0 

950 

{inicializace 


485 

LEFW 

LIRBUF 

955 

; vstup 

po pocatecnia zave- 

498 

DEFN 

LPBLKR 

960 

{děni 

systeau 

pocatecnia 

495 

LEFW 

CHK0R 

965 

{zavadecea z 

paaeti ROH 

508 

LEFW 

ALL0R 

970 

BuOT 



585 

; Floppy disk 368 kByte 

975 


XOR 

A 

510 

LEFW 

TRANSF, 8 

980 


LL 

(IOBYTE) , A 

515 

LEFW 

0,0 

985 


LL 

CSEKLSK) , A 

528 

LEFW 

LIRBUF 

990 


LL 

(HSTACT) , A 

525 

LEFW 

LPBLKF 

995 


LL 

(UNACNT) , A 

538 

LEFW 

CHKBF 

1000 


LL 

HL, HLASLT 

535 

LEFW 

ALL8F 

1005 


CALL 

TEXTCO 

548 



1010 


JP 

60CPH 

545 

; transf oraacni tabulka 

1015 

WBOOT 



558 

{sektoru floppy disku 

1028 


LI 


555 

TRANSF 


1025 


LL 

SP, #80 

560 


fyzicky sektor 

1030 


XOR 

A 

565 


1 

1035 


LL 

(HSTACT) ,A 

578 

{Hlava 0: 

V 

1040 


LL 

(UNACNT), A 

575 

LEFB 

88,01,02,03 {0 

1045 


LL 

C,8 

580 

LEFB 

16,17,18,19 ; 4 

1050 


CALL 

SELLSK 

585 

LEFB 

32,33,34,35 {8 

1055 


CALL 

HOHE 

598 

LEFB 

12,13,14,15 ;3 

1068 


CALL 

LOALSY 

595 

LEFB 

28,29,30,31 ; 7 

1065 

{konec 

zavlekani, iniciali 

600 

LEFB 

08,09,10,11 ;2 

1070 

; zace 

a vstup 

do systeau 

685 

LEFB 

24,25,26,27 ;6 

1075 

SOCPH 



618 

* LEFB 

84,05,06,87 {1 

1080 


LI 


615 

LEFB 

20,21,22,23 ;5 

1085 


LL 

A,»C3 

620 

{Hlava 1: 


1098 


LL 

(0) , A 

625 

LEFB 

36,37,38,39 ;8 

1095 


LL 

HL, WBOOTE 

638 

LEFB 

52,53,54,55 ;4 

1100 


LL 

(1) ,HL 

635 

LEFB 

68,69,78,71 {8 

1185 


LL 

(5), A 

648 

LEFB 

48,49,50,51 {3 

1110 


LL 

HL , BDOS+6 

645 

LEFB 

64,65,66,67 {7 

1115 


LL 

(6) ,HL 

650 

LEFB 

44,45,46,47 ;2 

1120 


LL 

BC,#0080 

655 

LEFB 

60,61,62,63 ;6 

1125 


CALL 

SETBHA 

668 

LEFB 

40,41,42,43 { 1 

1138 


XOR 

A 

665 

LEFB 

56,57,58,59 {5 

1135 


OUT 

(6) , A 

678 



1140 


LL 

(FBCTIH) ,A 

675 

{tabulka LPB 

pro flDPpydisk 

1145 


LL 

(HSTACT) , A 

688 

LPBLKF 


1150 


LL 

(UNACNT) , A 

685 

LEFW 

18*4;SPT 

1155 


LL 

(#F681 ) , A 

698 

LEFB 

4 ; B5H 

1168 


IN 

A, (FLCHSR) 

695 

LEFB 

15 {BLH 

1165 


CP 

#FF 

700 

LEFB 

0 ; EXH 

1170 


JR 

Z.6OCPH0 

785 

LEFW 

170 {LSH 

1175 


LL 

A, #08 

710 

LEFW 

63 ; DRH 

1180 


OUT 

(6) ,A 

715 

LEFB 

128 { AL0 

1185 


XOR 

A 

720 

LEFB 

B ; AL1 

1190 


OUT 

(6) , A 

725 

LEFW 

16 ;CKS 

1195 


LE 

HL,FLCSPE 

730 

LEFW 

2 íOFF 

1200 


CALL 

FBCOUT 

735 



1285 


CALL 

HOHEF 

740 

{tabulka LPB 

pro raadisk 

1210 

6QCPH8 



745 

itrack (stopa) 8 4 kbyte 

1215 


LL 

A,#FB 

750 

LPBLKR 


1228 


LL 

I , A 

755 

LEFW 

8*4 ; SPT 

1225 


IH 

2 

760 

LEFB 

4 ; BSH 

1230 


LL 

HL, INTERT 

765 

LEFB 

15 {BLH 

1235 


LL 

(#FEFF) ,HL 

770 

LEFB 

0 {EXH 

1248 


LL 

A, (SEKLSK) 

775 

LEFW 

235 ; LSH 

1245 


LL 

C,A 

780 

LEFW 

63 { LRH 

1250 


El 
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LEFB 

128 {ALB 

1255 


JP 
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790 

LEFB 

0 ; AL1 

1268 




795 

LEFW 

16 { CKS 

1265 

{uvodni hlášeni BIOSu 

800 

LEFW 

2 ; OFF 

1270 

HLASLT 



805 



1275 


LEFB 

cff 

818 

;podprograey 

ukládáni a 

1280 


LEFH 

*64K CP/H • 

815 

icteni systeeu z prvních 

1285 


LEFH 

"ver. 2.26* 

820 

{stop raadisku 

1298 


LEFB 

CCR,CLF,CLF 

825 

LOALSY 


1295 


LEFH 

" BIOS for 

830 

XOR 

A 

1308 


LEFH 

"ZX Spectru 

835 

JR 

RWSYS 

1305 


LEFH 

* A.Jurik * 

840 

SAVESY 


1310 


LEFH 

"1988" 

845 

LL 

A,#FF 

1315 


LEFB 

CCR,CLF 

850 

RWSYS 


1320 


LEFH. 

" raadisk 

855 

LL 

BC.BIOS-CCP 

1325 


LEFH 

"size 472" 

860 

LL 

LE ,14080 

1338 


LEFH 

" kByte* 

865 

LL 

HL,CCP 

1335 


LEFB 

CCR,CLF,0 

870 

OR 

A 

1340 




875 

JR 

NZ.RWSYSB 

1345 

{podprograay 

pro V/V 

888 

EX 

LE,Hl 

1350 




885 

RWSY5B 


1355 

istav 

klávesnice 

890 

LI 


1360 

;0 * 

neni stisknuto 

895 

LL 

A.RLSKOF 

1365 

»FF = 

je připraven znak 

900 

OUT 

(3) , A 

1370 

CONST 



985 

LL 

A, #30 

1375 


CALL 

INKEY 

910 

OUT 

(4) , A 

1380 


OR 

A 

915 

LLIR 


1385 


RET 

Z 

920 

LL 

A, #20 

1390 


LL 

A,-l 

925 

QUT 

(4) , A 

1395 


RET 


930 

RET 


1488 




935 



1405 

;cteni 

znaku 

z klávesnice 

940 

{podprograay 

funkci BIOSu 

1410 

CONIN 




1415 

PUSH 

HL 

1935 


LD 

A,C 

1420 

1425 

LD 

HL,STAT 

1940 


LD 

(SEKSCR) , A 

C0NCS2 


1945 


SRL 

A 

1430 

CALL 

Cl 

1950 


SRL 

A 

1435 

CP 

*g" 

1955 


LD 

(SEKSEC)., A 

1440 

JR 

Z, CONCS 

1968 


RET 


1445 

CP 

"q" 

1965 




1450 

JR 

Z, CONCS 

1978 

{překlad cisla sektoru 

1455 

RES 

0, (HL) 

1975 

jv BC 

poaoci překladové 

1460 

CQNCS0 


1980 

{tabulky v 

DE 

1465 

POP 

HL 

1985 

SECTRA 



1470 

RET 


1990 


LD 

H,B 

1475 

CONCS 


1995 


LD 

L,C 

1480 

BIT 

8, (HL) 

2000 


LD 

A, (SEKDSK) 

1485 

JR 

Z.C0NCS1 

2005 


AND 

A 

1490 

RES 

0, (HL) 

2010 


RET 

Z 

1495 

JR 

CONC50 

2015 


EX 

DE.HL 

1500 

CONCS1 


2020 


ADD 

HL.BC 

1505 

SET 

0, (HL) 

2825 


LD 

L, (HL) 

1510 

SET 

1, (HL) 

2030 


LD 

H,0 

1515 

JR 

C0NCS2 

2035 


RET 


1528 



2040 


adresy na 

1525 

{vystup znaku z C na konzolu 

2045 

{ nastaveni 

1530 

CONÍRIT 


2050 

; adresu z BC 

1535 

Dl 


2055 

SETDHA 



1548 

XOR 

A 

2068 


LD 

(DHAAD) ,BC 

1545 

OUT 

(4) , A 

2065 


RET 

1558 

LU 

(STACK) ,SP 

2070 




1555 

LD 

SP,#6FFF 

2075 

{provedeni 

operace ctěni 

1560 

CALL 

COOUT 

2080 

{sektoru z 

disku 

1565 

LU 

SP, (STACK) 

2085 

READ 


1570 

LD 

A ,428 

2090 


LD 

A, (SEKDSK) 

1575 

OUT 

(4) ,A 

2895 


AND 

A 

1588 

El 


2100 


JR 

NZ, READF 

1585 

RET 


2185 

READR 


1598 



2118 


CALL 

DHAPOS 

1595 

{tisk znaku 

z C registru 

2115 


JR 

Z , READR0 

1600 

LIST 


2120 


CALL 

TRANSR 

1605 

{vložit podprograa výstupu 

2125 


LD 

DE,ĎHABUF 

1618 

;znaku z C registru na 

2138 


CALL 

READSR 

1615 

; tiskárnu 


2135 


LD 

HL , DHABUF 

1620 

RET 


2140 


LD 

DE, (DHAAD) 

1625 



2145 


LD 

BC.SEKSIZ 

1638 

;stav tiskárny 

2150 


LDIR 

1635 

LISTST 


2155 


XOR 

A 

1640 

{vložit podprograa testu 

2160 


RET 


1645 

{připravenosti tiskárny 

2165 

READR0 


' „ 

16S0 

{prijaout znak 

2170 


CALL 

TRANSR ^ 

1655 

LD 

A,-l 

2175 


LD 

DE, (DHAlAD) 

1660 

RET 


2180 


CALL 

READSR 

1665 



2185 


XOR 

A 

1670 

{děrováni znaku z C 

2190 


RET 


1675 

PUNCH 


2195 

READF 


1680 

{děrovač nepřipojen 

2208 


XOR 

ň 

1 685 

RET 


2205 


LD 

(UNACNT) , A 

1690 

;cteni znaku 


2210 


INC 

A 

1695 

ze sniaace 

2215 


LD 

(RÉADOP) , A 

1708 

1785 

;do A 

READER 


2220 

2225 


LD 

LD 

(RSFLA6) , A 
A.HRUAL 

1710 

;sm*ac nepřipojen, cte se 

2230 


LD 

(NRTYPE) , A 

1715 

;vzdy konec zaznaau (CTRL Z) 

2235 


JP 

RHOPER 

1720 

LD 

A, 41A 

2240 



1725 

RET 


2245 

{provedeni < 

operace zápisu 

i 730 



2258 

{sektoru na 

disk 

1735 

;podprograay 

obsluhy disku 

2255 

WRITE 


1740 



2260 


LD 

A, (SEKDSK) 

1745 

;nastav nultou stopu 

2265 


AND 

A 

1750 

; aktuálního 

disku 

2270 


JR 

NZ, HRITEF 

1755 

HOME 


2275 

WRITER 



1768 

LD 

A, (HSTHRT) 

2280 

CALL 

DHAPOS 

1765 

OR 

A 

2285 


JR 

Z , WRITR0 

1770 

JR 

NZ , HOHED 

2290 


LD 

DE, DHABUF 

1775 

LD 

(HSTACT) , A 

2295 


LD 

HL, (DHAAD) 

1780 

HOHED 


2388 


LD 

BC.SEKSIZ 

1785 

XOR 

A 

2305 


LDIR 

1790 

LD 

(SEKTRK) , A 

2310 


CALL 

TRANSR 

1795 

RET 


2315 


LD 

DE, DHABUF 

1800 



2328 


EX 

DE.HL 

1885 

{vyber diskové aechaniky 

2325 


CALL 

READSR 

1810 

; spéci f i kované C registrea 

2330 


XOR 

A 

1815 

SELDSK 


2335 


RET 


1820 

LD 

A ,C 

2340 

MRITR0 



1825 

CP 

2 

2345 


CALL 

TRANSR 

1830 

LD 

HL , 0 

2350 


LD 

DE, (DHAAD) 

1835 

RET 

NC 

2355 


EX 

DE.HL 

1840 

LD 

(SEKDSK) , A 

2360 


CALL 

READSR 

1845 

LD 

L , A 

2365 


XOR 

A 

1850 

ADD 

HL.HL 

2378 


RET 


1855 

ADD 

HL ,HL 

2375 

HRITEF 


1 860 

ADD 

HL.HL 

2380 


XOR 

A 

1 865 

ADD 

HL.HL 

2385 


LD 

(READOP) , A 

1870 

LD 

DE , DPBASE 

2390 


LD 

A,C 

1875 

ADD 

HL,DE 

2395 


LD 

(MRTYPE) , A 

1880 

RET 


2480 


CP 

HRUAL 

1885 



2405 


JR 

NZ.CHKUNA 

1898 

{nastaveni stopy dané 

2410 


LD 

A.BLKSIZ/128 

1895 

;registrea C 


2415 


LD 

(UNACNT), A 

1908 

SETTRK 


2428 


LD 

A, (SEKDSK) 

1905 

LD 

(SEKTRK) ,BC 

2425 


LD 

(UNADSK) ,A 

1910 

RET , 


2430 


LD 

HL, (SEKTRK) 

1915 



2435 


LD 

(UNATRK) ,HL 

1920 

;nastavem sektoru 

2448 


LD 

A, (SEKSCR) 

1923 

{daného registrea C 

2445 


LD 

(UNASEC) ,A 

1930 

SETSEC 


2450 

{test 

pokr . 

v neal. zápisu 


2455 

CHKUNA 



2460 


LD 

A, (UNACNT) 

2465 


QR 

A 

2470 


JR 

Z, ALLOC 

2475 

jpokr 

v neal. 

zápisu 

2480 


DEC 

A 

2485 


LD 

(UNACNT) , A 

2490 


LD 

A, (SEKDSK) 

2495 


LD 

HL, UNADSK 

2508 


CP 

(HL) 

2505 


JR 

NZ, ALLOC 

2510 

{stejne disky 

, stejne stopy? 

2515 


LD 

HL, (UNATRK) 

2520 


CALL 

STCHP 

2525 


JR 

NZ, ALLOC 

2530 

{stejný sektor? 

2535 


LD 

A, (SEKSCR) 

2540 


LD 

HL, UNASEC 

2545 


CP 

(HL) 

2550 


JR 

NZ, ALLOC 

2555 

;priprava adresy pro 

2560 

{pristi zapiš 


2565 


INC 

(HL) 

2570 


LD 

A, (HL) 

2575 


CP 

CPHSPT 

2580 


JR 

C.NOOVF 

2585 

{ dal si 

stopa 


2598 


LD 

(HL) ,0 

2595 


LD 

HL, (UNATRK) 

2608 


INC 

HL 

2605 


LD 

(UNATRK) .HL 

2618 

{ shoda 

není třeba predecitat 

2615 

NQOVF 


- 

2620 


XOR 

A 

2625 


LD 

(RSFLAB) , A 

2630 


JR 

RHOPER 

2635 

{zapiš 

do alokovaného. 

2640 

{je třeba predecist 

2645 

ALLOC 



2650 


XOR 

A 

2655 


LD 

(UNACNT) , A 

2660 


INC 

A 

2665 


LD 

(RSFLAB) , A 

2678 

RHOPER 



2675 


XOR 

A 

2680 


LD 

(ERFLAB) , A 

2685 


LD 

A, (SEKSEC) 

2690 


LD 

(SEKHST) .A 

2695 

{je aktivni vyrovnávací 

2700 

; paaet? 


2705 


LD 

HL, HSTACT 

2710 


LD 

A, (HL) 

2715 


LD 

(HL) ,1 

2720 


OR 

A 

2725 


JR 

Z, FILHST 

2730 

{ano. Obsahuje požadovaný 

2735 

.{sektor? 


2740 


LD 

A, (SEKDSK) 

2745 


LD 

HL.HSTDSK 

2751 


CP 

(HL) 

2755 


JR 

NZ, NOHATC 

2760 

{Stejný disk. 

Stejná stopa? 

2765 


LD 

HL, (HSTTRK) 

2771 


CALL 

STCHP 

2775 


JR 

NZ, NOHATC 

2788 

{stejný disk i 

i stopa. 

2785 

{Stejný sektor? 

2790 


LD 

A, (SEKHST) 

2795 


LD 

HL.HSTSEC 

2800 


CP 

(HL) 

2805 


JR 

Z, HATCH 

2810 

{požadovaný jiný sektor nez 

2815 

{ten ve vyrovnávací paaeti 

2820 

NOHATC 



2825 


LD 

A, (HSTHRT) 

2830 


OR 

A 

2835 


CALL 

NZ.HRHST 

2840 

{napln 

vyrovnavaci paaet 

2845 

FILHST 



2858 


LD 

A, (SEKDSK) 

2855 


LD 

(HSTDSK) , A 

2860 


LD 

HL, (SEKTRK) 

2865 


LD 

(HSTTRK) ,HL 

2870 


LD 

A, (SEKHST) 

2875 


LD 

(HSTSEC) , A 

2888 


LD 

A, (RSFLAB) 

2885 


QR 

A 

2890 


CALL 

NZ.RDHST 

2895 


XOR 

A 

2908 


LD 

(HSTHRT) , A 

2985 

{přesun data do nebo 

2910 

{z vyrovnávací 

. paaeti 

2915 

HATCH 



2928 


LD 

A. (SEKSCR) 

2925 


AND 

SECHSK 

2938 


LD 

L,0 

2935 


LD 

H,A 

2940 


SRL 

H 

2945 


RR 

L 

2951 


LD 

DE.HSTBUF 

2955 

v .. 

ADD 

HL.DE 

2960 


EX 

DE.HL 

2965 


LD 

HL, (DHAAD) 

2970 


LD 

BC, 128 


» 


2975 LB A, (READOP) 

2969 06 A 

2985 JR NZ.RNHOVE 

2998 ;zapis, označ a obrat seer 

2995 LB A, l 

3998 LB (HSTNRT) ,A 


3995 

EX 

DE.HL 

3819 

; přesun 128 

byte 

3915 

jz (HL) do 

(BE) 

3826 

RNHOVE 


3925 

EX 

BE.HL 

3938 

IDIR 


3835 

;data byla i 

přesunuta z /do 

3848 

jHSTBUF 


3845 

LB 

A, (NRTYPE) 

3858 

CP 

NRDIR 

3855 

LB 

A, (ERFLA6) 

3868 

RET 

NZ 

3865 

;zapis do adresare je trefc 

3878 

jpravest ihned 

3875 

OR 

A 

3688 

RET 

NZ 

3865 

XOR 

A 

3898 

LB 

(HSTNRT) , A 

3895 

CALL 

NRHST 

3188 

LB 

A, (ERFLAG) 

3185 

RET 



3116 

3115 ;prevod logického cisla 
3129 ssektoru na fyzické 
3125 ;pra raadisk 
3139 ; vstup: (SEKSEC) , (SEKTRK) 
3135 ;vystup: HL - pocatecni 
3149 5 adresa sektoru o 

3145 ; delce 126 byte 


3158 

TRANSR 


3155 

LB 

A, (SEKTRK) 

3168 

LB 

E ,8 

3165 

LB 

D,A 

3178 

SRL 

B 

3175 

RR 

E 

3188 

SRL 

B 

3185 

RR 

E 

3198 

SRL 

B 

3195 

RR 

E 


3288 

:v B fyzicky 

track , 

3285 

;v E nizsi bity adresy 

3218 

LB 

A,B 

3215 . 

ABB 

A.RDSKOF 

3228 

OUT 

(3) , A 

3225 

SRL 

E 

3238 

LB 

HL ,84888 

“^235 

LB 

A,E 

3248 

ABB 

A,H 

3245 

LB 

H, A 

3258 

LB 

A, (SEKSCR) 

3255 

SRL 

A 

3268 

RR 

L 

3265 

OR 

H 

3278 

LB 

H.A 

3275 

RET 


3288 



3285 

;zjisteni nutnosti použiti 

3298 

j vyrovnávacího bufferu pro 

3295 

joperaci s raediskee 

3388 

jvystup Z - 

2 není třeba 

3385 

9 

1 je třeba 

3318 

BHAPOS 


3315 

LB 

BE, (BHAAB) 

3328 

LB 

HL , 128 

3325 

ABB 

HL.DE 

3330 

LB 

A,H 

3335 

ANB 

IC8 

3340 

RET 

Z 

3345 

i-3 

A,D 

3358 

ANB 

8C0 

'^o55 

CP 

#C8 

3360 

RET 





3378 

;podprogra« 

ctěni /zápisu 

3375 

:sektoru z raedisku 

3338 

REABSR 


3385 

LB 

BC, 128 

3390 

LD 

A , *38 

3395 

Bí 


3488 

aui 

(4) ,A 

3485 

LDIR 


34ia 

LD 

A ,828 

3413 

OUT 

<41 « A 

3428 

Z T 


3425 

RET 


3430 



. 3435 

:podprograe 

pro 16 bitové 

3440 

: porovnáni 


3445 

: vstup: HL 

- iUNATRK) nebo 

3450 


(HSTTRK) 

3455 

: (SEKTRK) 

3468 

;vystup: Z - 

n — ^ — i — — 
i u 3 sjtiS 

3465 


I razné 

347e 

STCHP 


3«75 

• 

BE, (SEKTRK) 

3488 

LB 

A.L 

3485 

CP 

E 

3490 

RET 

NZ 


3495 

LB 

A,H 

4815 


ANB 

»C« 

3580 

CP 

B 

4828 


JR 

Z -FBCHS2 

3585 

RET 


4825 


LB 

A , 1 

3510 



4838 

FBCHS3 



3515 

;podprogra« 

povelu FBC 

4835 


LB 

(ÉRFLAB) , A 

3520 

;vstup: HL - 

adresa eocatku 

4649 


LB 

A, (ERFL60) 

3525 


datového bloku 

4845 


QR 

A 

3530 

FBCQUT 


4850 


JR 

NZ.FBCHS5 

3535 

LD 

C , FBCBTR 

4855 


LB 

A, (ERFLA6) 

3540 

LD 

I, (HL) 

4868 


OR 

A 

3545 

INC 

HL 

4865 


JR 

NZ.FDCHS5 

3550 

rBcoua 


4878 


RET 


3555 

IN 

A, i FBCHSR) 

4875 

FBCHS2 



3560 

AND 

XC» 

4988 


XOR 

A 

3565 

CP 

#80 

4985 


JR 

FBCHS3 

3578 

JR 

NZ.FDCQU0 

4898 

FBCHS5 



3575 

DUTI 


4895 


LB 

A, (PRETRY) 

3530 

w h 

NZ,FBCOU0 

4108 


DEC 

A 

3585 

. IN 

A, (FBCHSR) 

4185 


LB 

(PRETRY) , A 

3590 

RET 


4118 


LB 

A.-l 

3595 



. 4115 


RET 

Z 

3680 

? podprogr aa 

vstupu výsledku 

4120 


JR 

FBCHS4 

3605 

:po provedeni povelu FBC 

4125 

WRHS 



5610 

: vstup: HL - 

adresa počátku! 

4138 


JR 

NZ.NRHSTN 


3615 ; 


ukládám dat 

4135 NRHSTR 



5628 ; 

B - 

délka bloku 

4148 

LD 

B.SEKSIZ 

3625 FBCIN 



4145 WRHSR1 



-.6^,8 

LD 

C, FBCBTR 

4158 

IN 

A, (FBCHSR) 

3635 FDCI.0 



4155 

CP 

#FB 

3648 

IN 

A, (FBCHSR) 

4168 

JR 

Z , WRHSR2 

3645 

ANB 

*C0 

4165 

CP 

*D8 

3658 

CP 

§C8 

4178 

JR 

Z . NRHSR9 

3655 

JR 

NZ,FBCI.e 

4175 

JR 

NRHSR1 

3668 

INI 


4188 NRHSR2 



3665 

JR 

NZ.FDCI.8 

4185 

INI 


.3670 

RET 


4198 

JR 

NZ.HRHSR1 

3675 



4195 

BEC 

B 

3688 ;podprogra*y 

fyzického 

4288 

JR 

NZ, NRHSTR 

3685 ; zápisu nebo 

ctem 

4285 

OUT 

(TERCNT) ,A 

3690 ;sektoru floppydisku 

4218 

XOR 

A 

3695 ; vstup 

: (HSTBSK) - disk 

4215 

RET 


3788 ; 

í HSTTRK i - stopa 

4228 NRHSR9 



3705 ; 

(HSTSEC) - sektor 

4225 

LB 

A»“l 

3718 ; pres WRKST - zapiš 

4238 

RET 


3715 ; pres RBHST - ctěni 

4235 NRHSTW 



3728 : zápisu je/cte 

se HSTSIZ 

4248 

LB 

B.SEKSIZ 

3725 ;byte z/do HSTBUF 

4245 NRHSN1 



3738 :vystup|: nastaveni (ERFLA6) 

4258 

IN 

A, (FBCHSR) 

3735 NRHST - 



4255 

CP 

#BB 

3748 

LD 

A, #45 

4268 

JR 

Z , NRHSN2 

3745 

LB 

L,#8B 

4265 

CP 

#98 

3758 

JR 

FBCHST 

4278 

JR 

Z , NRH5R9 

3755 RBHST 



4275 

JR 

HRHSN1 

3768 

LD 

A, #46 

4288 NRHSN2 



3765 

LD 

L,#46 

4285 

OUTI 


3778 FBCHST 



4298 

JR 

NZ ,NRHSW1 

3775 

LB 

(FDCRW+1) ,A 

4295 

DEC 

B 

3788 

LB 

A,L 

4388 

JR 

NZ.NRHSTN 

3785 

LB 

CDKARE6) , A 

4385 

OUT 

(TERCNT), A 

3798 

XOR 

A 

4318 

XOR 

A 

3795 

LD 

(ERFLAS) , A 

4315 

RET 


3889 

LD 

A.RETRY 

4328 



3885 

LB 

(PRETRY) , A 

4325 jpodprograa 

nastaveni BHA 

3318 FBCH54 



4336 ; kontroléru 

8257 

3815 

CALL 

WAIT 

4335 ; vstup: L - 

bity R/N z TC 

3328 

CALL 

SELTRK 

4348 ; 

BE - 

poc. adresa 

3825 

LD 

A, (HSTTRK) 

4345 ; 

BC - 

délka bloku 

3830 

LD 

(FDCRN+3) , A 

4358 STBHAC 



3835 

LD 

A, (HSTSEC) 

4355 

LB 

BC, HSTSIZ 

3848 

LD 

8, A 

4369 

LB 

BE, HSTBUF 

3845 

SUB 

9 

4365 STBRCB 



3858 

JR 

NC , FBCHSB 

4378 

LB 

A, #44 

3855 

LB 

A,B 

4375 

OUT 

(#28) , A 

3868 

INC 

A 

4388 

LB 

A,C 

3865 

LD 

(FDCRN+5) , A 

4385 

OUT 

(#25), A 

3870 

XOR 

A 

4398 

LD 

A.l 

3875 

JR 

FBCHS1 

4395 

OR 

L 

3888 FBCHSB 



4488 

OUT 

(#25), A 

3885 

INC 

A 

4485 

LB 

A,E 

3898 

LB 

(FDCRM+5) ,A 

4418 

OUT 

(#24) ,A 

3895 

LD 

A , 1. 

4415 

LD 

A.B 

3908 FBCHS1 



4428 

OUT 

(#24) ,A 

3985 

LB 

(FBCŘN+4) , A 

4425 

RET 


3910 

RLCA 


4438 



3915 

RLCA 


4435 ipodprograe 

nastaveni stopy 

3928 

LB 

B,A 

4448 ; floppy disku z HSTTRK 

3925 

LB 

A, (HSTBSK) 

4445 ; vystup: (ERFLAS) , (PCN) 

3938 

OR 

B 

4458 SELTRK 


3935 

LD 

(FDCRN+2) ,A 

4455 

LD 

A, (HSTTRK) 

3948 

LD 

HL,FBCRW 

4468 

OR 

A 

3945 

Dl 


4465 

JR 

Z.HOHEF 

3950 

CALL 

FBCBUT 

4478 

LB 

(FDCSC+3) >A 

3955 

LB 

A, (DHAREB) 

4475 

LB 

A, (HSTBSK) 

3968 

BIT 

7, A 

4488 

LB 

(FBCSC*2),A 

3965 

LB 

HL, HSTBUF 

4485 

LB 

HL.FBCSC 

3970 

LB 

C, FBCBTR 

4490 

CALL 

FBCOUT 

3975 

LB 

D.HSTBLK 

4495 

JR 

HOHEF0 

3988 

CALL 

WRHS 

4580 spodprograe 

fyzického 

3985 

El 


4585 i nastaveni nechaní ky na 

3998 

LD 

(ERFL68) ,A 

4518 ;nultou stopu 

3995 

LB 

B ,7 

4515 HQKEF 



4888 

LB 

HL,FBCRES 

4528 

CALL 

NAIT 

4085 

CALL 

FBCIN 

4525 

LB 

A, (SEKBSK) 

4018 

LB 

A, (FBCRES) 

4538 

LB 

(FDCHOH+2) ,A 


4535 


LD 

HL,FDCHQM 

5065 


LD 

C, A 

5585 ;rutina volana pri kazd 

4548 


CALL 

FDCOUT 

5070 


CALL 

FDCOC 

5598 ;preruseni 


4545 

HDMEF0 



5075 


LD 

A, (SECTOR) 

5595 KEYB 



4550 


IN 

A, (FDCMSR) 

5080 


LD 

C , A 

5608 

LD 

HL.KS0 

4555 


BIT 

7, A 

5085 


CALL 

FDCOC 

5685 KLOOP 



4568 


JR 

Z ,HQMEF0 

5090 


LD 

C,2 

5618 

LD 

B, (HL) 

4565 


LD 

A, 8 

5095 


CALL 

FDCOC 

5615 

INC 

B 

4578 


OUT 

(FDCDTR) , A 

5108 


LD 

A, (SECTOR) 

5620 

JR 

Z, KCH 

4575 

H0MEF1 



5105 


INC 

A 

5625 

INC 

• HL 

4588 


IN 

A, (FDCMSR) 

5110 


CP 

10 

5630 

DEC 

(HL) 

4585 


BIT 

7, A 

5115 


JR 

NZ.FORMT0 

5635 

DEC 

HL 

4598 


JR 

Z.HOMEF1 

5120 


LD 

HL,FDCRES 

5648 

JR 

NZ.KCH 

4595 


IN 

A, (FDCDTR) 

5125 


LD 

1,7 

5645 

LD 

(HL) ,-l 

4680 


BIT 

5, A 

5 1 30 


CALL 

FDCIN 

5650 KCH 



4685 


PUSH 

AF 

5135 


LD 

A, (FDCRES) 

5655 

LD 

A,L 

4610 

H0HEF2 



5140 


AND 

*C0 

5660 

LD 

HL.KS4 

4615 


IN 

A, (FDCMSR) 

5145 


CP 

*80 

5665 

CP 

L 

4628 


BIT 

7, A 

5150 


JR 

Z, FORMTF 

5670 

JR 

NZ , KLOOP 

4625 


JR 

Z ,HQHEF2 

5155 


LD 

A, (HEAD) 

5675 

CALL 

CIN 

4630 


IN 

A, (FDCDTR) 

5 1 60 


OR 

A 

5680 

OR 

A 

4635 


POP 

AF 

5165 


El 


5685 

RET 

Z 

4640 


JR 

Z.HOHEF0 

5170 


RET 

NZ 

5690 

LD 

HL.KS0 

4645 


RET 


5175 


INC 

A 

5695 

CP 

(HL) 

4650 




5188 


JR 

FORMT1 

5700 

JR 

Z, KREP 

4655 

; podprograa 

f oraatovani 

5185 

FDCOC 



5785 

EX 

DE,HL 

4668 

;raadisku 


5190 


IN 

A, (FDCMSR) 

5710 

LD 

HL.KS4 

4665 

FORMR 



5195 


AND 

«C0 

5715 

CP 

(HL) 

4670 


Dl 


5200 


CP 

*80 

5720 

JR 

Z, KREP 

4675 


LD 

A.RDSKOF 

5205 


J R 

NZ, FDCOC 

5725 

LD 

B, (HL) 

4680 


OUT 

(3) , A 

5210 


LD 

A,C 

5730 

INC 

B 

4685 


LD 

A, *30 

5215 


OUT 

(FDCDTR) , A 

5735 

JR 

Z , KNEW 

4690 


OUT 

(4) , A 

5220 


RET 


5740 

EX 

DE,HL 

4695 


LD 

HL , *4000 

5225 




5745 

LD 

B, (HL) 

4780 


LD 

DE ,*4801 

5230 

;podprograa 

hlášeni chyby 

5750 

INC 

B 

4785 


LD 

BC,*7FFF 

5235 

;v prubehu formátováni 

5755 

RET 

NZ 

4710 


LD 

(HL) ,*E5 

5240 

FORMTF 



5768 KNEW 



4715 


LDIR 


5245 


LD 

HL, HLASFO 

5765 

LD 

E, A 

4728 


LD 

A, *20 

5250 


CALL 

TEXTCO 

5770 

LD 

(HL) , A 

4725 


OUT 

(4) , A 

5255 


LD 

A, (SEKTRK) 

5775 

INC 

HL 

4730 


RET 


5260 


CALL 

CONUM 

5788 

LD 

(HL) ,5 

4735 




5265 


LD 

HL, HLÁŠEN 

5785 

INC 

HL 

4748 

; podprogram 

výstupu zprávy 

5270 


CALL 

TEXTCO 

5790 

LD 

A, (KS9) 

4745 

;na konzolu 


5275 


RET 


5795 

LD 

(HL) , A 

4758 

TEXTCD 



5280 

CONUM 



5880 

INC 

HL 

4755 


LD 

A, (HL) 

5285 


PUSH 

AF 

5805 

LD 

A,E 

4760 


OR 

A 

5290 


CALL 

CONUM 1 

5810 

LD 

(HL) ,A 

4765 


RET 

Z 

5295 


POP 

AF 

5815 KEND 



4770 


INC 

HL 

5380 


RRCA 


5820 

LD 

(K58) , A 

4775 


PUSH 

HL 

5305 


RRCA 


5825 

SET 

5, ( I Y+8) 

4780 


LD 

C, A 

5310 


RRCA 


5830 

RET 


4785 


CALL 

CONOUT 

5315 


RRCA 


5835 KREP 



4790 


POP 

HL 

5320 

CONUM1 



5840 

INC 

HL 

4795 


JR 

TEXTCO 

5325 


AND 

#8F 

5845 

LD 

(HL) ,5 

4880 




5338 


ADD 

A, 6 

5858 

INC 

HL 

4805 

; podprograa 

spouštěni 

5335 


BIT 

4, A 

5855 

DEC 

(HL) 

4810 

;dlsketove mechaniky 

5340 


JR 

NZ.CONUM9 

5860 

RET 

NZ 

4815 

WAIT 



5345 


SUB 

6 

5865 

LD 

A, (KSA) 

4828 


Dl 


5350 


JR 

C0NUM8 

5870 

LD 

(HL) , A 

4825 


LD 

HL,FDCTIM 

5355 

C0NUM9 



5875 

INC 

HL 

4838 


LD 

A, (HL) 

5360 


INC 

A 

5880 

LD 

A, (HL) 

4835 


OR 

A 

5365 

C0NUM8 



5885 

JR 

KEND 

4848 


JR 

NZ , WAIT0 

5378 


ADD 

A, *30 

5890 



4845 


LD 

A, 5 

5375 


LD 

C,A 

5895 ; klávesnice 

CP/M Spectr 

4858 


OUT 

(6) , A 

5380 


CALL 

CONOUT 

5900 : (C) DaJe. 1987 

4855 


LD 

A,FDCTMR«2 

5385 


RET 


5905 CÍN 



4860 


LD 

(HL) ,fi 

5390 

HLASFO 



5910 

LD 

BC,*FEFE 

4865 

WAIT0 



5395 


DEFM 

"Bios err: " 

5915 

LD 

D,0 

4878 


El 


5400 


DEFM 

"formát err or" 

5920 KLOOP 1 



4875 


LD 

A, (HL) 

5405 


DEFM 

on track " 

5925 

LD 

A.D 

4888 


CP 

FDCTMR+l 

5410 


DEFB 

0 

5930 

LD 

E,*1F 

4885 


JR 

NC , WAI T0 

5415 

HLÁŠEN 



5935 

CP 

0 

4898 


LD 

(HL) ,FDCTMR 

5420 


DEFB 

CCR,CLF,8 

5948 

JR 

NZ , DALI 

4905 


RET 


5425 




5945 

LD 

E,*1E 

4910 




5430 

jpodprograa 

obsluhy / 

5950 DALI 



4915 

;podprograa 

f oraatovani 

5435 

jpreruseni 


5955 

CP 

7 

4920 

jf loppydisfcu 


5440 

INTERT 



5968 

JR 

NZ.DAL2 

4925 

FORMF 



5445 


Dl 


5965 

LD 

E,*1D 

4930 


CALL 

HOHEF 

5450 


PUSH 

AF 

5970 DAL2 



4935 


LD 

A, 39 

5455 


PUSH 

DC 

5975 

IN 

A, (C) 

4940 

FQRMF0 



5460 


PUSH 

DE 

5980 

CPL 


4945 


LD 

(HSTTRK) ,A 

5465 


PUSH 

HL 

5985 

AND 

E 

4950 


PUSH 

AF 

5470 


PUSH 

IY 

5990 

JR 

Z.NONE 

4955 


CALL 

SELTRK 

5475 


LD 

IY,STAT 

5995 ;A - příznak 

rady 

4968 


CALL 

FORMTR 

5480 


CALL 

KEYB 

6000 :D - příznak 

sloupce 0- 

4965 


POP 

AF 

5485 


LD 

HL, (TIMER) 

6005 KEY 



4970 


OR 

A 

5490 


INC 

HL 

6010 

LD 

C,D 

4975 


RET 

Z 

5495 


LD 

(TIMER) ,HL 

6015 

LD 

H ,0 

4980 


DEC 

A 

5500 


LD 

HL,FDCTIM 

6020 

LD 

L.H 

4985 


JR 

F0RHF8 

5505 


LD 

A, (HL) 

6025 

LD 

B,0 

4998 




5510 


OR 

A 

6038 

LD 

D,L 

4995 

; f or aatovani 

jedne stopy 

5515 


JR 

Z , INTER0 

6035 

LD 

E.8 

5008 

FORHTR 



5520 


DEC 

A 

6048 L0QP2 



5005 


XOR 

A 

5525 


LD 

(HL) , A 

6045 

RRCA 


5010 

FORMU 



5530 


JR 

NZ , INTER0 

6050 

JR 

C, TRANS 1 

5015 


LD 

(HEAD) , A 

5535 


OUT 

(6) , A 

6855 

ADD 

HL ,DE 

5820 


Dl 


5540 

INTER8 



6068 

JR 

LQ0P2 

5025 


LD 

A, 1 

5545 


POP 

IY 

6065 ;HL=8*RADA 

8* (0-4) 

5838 


LD 

(FDCFRM+2) ,A 

5550 


POP 

HL 

6870 :SC-SLOUPEC 

(8-7) 

5035 

FQRMT8 



5555 


POP 

DE 

6075 TRANS 1 



5048 


LD 

(SECTOR) , A 

5560 


POP 

BC 

6880 

ADD 

HL,BC 

5045 


LD 

A, (SEKTRK) 

5565 


POP 

AF 

6085 

CALL 

KCAPS 

5050 


LD 

C, A 

5570 


El 


6890 

JR 

NZ .NOEXTD 

5055 


CALL 

FDCOC 

5575 


RET 


6095 

CALL 

SYMBOL 

5868 


LD 

A, (HEAD) 

5580 




6100 

JR 

NZ, NOEXTD 


6185 

LD 

DE.120 

6118 

ADD 

HL , DE 

6115 

JR 

NOSYM 

6128 NQEXTD 



6125 

CALL 

KCAPS 

6138 

JR 

NZ ,N0CAPS 

6135 

LD 

DE , 40 

6148 

ADD 

HL , DE 

6145 NQCAPS 



6158 

CALL 

SYMBOL 

6155 

JR 

NZ, NOSYM 

6168 

LD 

DE,80 

6165 

ADD 

HL , DE 

6178 NOSYM 



6175 

LD 

DE, TABLE 

6188 

BIT 

1 , UY+0) 

6185 

JR 

Z , TRANS2 

6198 

LD 

DE, TABLE +168 

6195 TRANS2 



6288 

ADD 

HL , DE 

6285 

LD 

A, IHL) 

6218 

JR 

EXIT 

6215 KCAPS 



6228 

LD 

BC,#FEFE 

6225 

IN 

A, (C) 

6238 

BIT 

0 , A 

6235 

RET 


6248 SYMBOL 



6245 

LD 

BC,*7FFE ' • 

6258 

IN 

A, (C) 

6255 

BIT 

1 , A 

6268 

RET 


6265 NONE 



6278 

INC 

D 

6275 

RLC 

B 

6288 

JR 

C.KLOQPl 

6285 ;zadna 

klapka 


6290 

XOR 

A 

6295 

BIT 

0, ( IY+B) 

6388 

JR 

NZ.EXIT 

6385 

RES 

1, (IY+B) 

6318 EXIT 



6315 

LD 

C,A 

6320 

LD 

B,0 

6325 

RET 

« 

6338 



6335 TABLE 



6340 ; HALA 

PISHENA 

48 BYTE 

6345 

DEFB 

0 

6350 

DEFH 

"aqlBp" 

6355 

DEFB 

13,32 

-~6368 

DEFH 

“zsw29ol " 

6365 

DEFB 

8 

6370 

DEFH 

“xde38i ke" 

6375 

DEFH 

*cf r47ujn* 

6388 

DEFH 

*vgt56yhb* 

6385 ; VELKÁ 

PISHENA 48 BYTE 

6398 

DEFB 

0 

6395 

DEFH 

"AQ10P" 

6488 

DEFB 

13,32 

6485 

DEFH 

"ZSN29QL" 

6418 

DEFB 

8 

6415 

DEFM 

“XDE38IKM* 

6428 

DEFH 

"CFR47UJN" 

6425 

DEFH 

“VST56YHB* 

6438 jSHIFTOVANE ZNAKY 48 BYTE 

6435 

DEFM 

II “ H 

6448 

DEFB 

27 

6445 

DEFM 

II | M 

6450 

DEFB 

" " 1 , 13 ,32 

- 6455 

DEFM 

"i 1 §);= " 

6460 

DEFM 

"*\ *+." 

6465 

DEFM 


6470 

DEFM 



6625 


DEFB 

"L* ,0, *X* ,#E4 

6630 


DEFB 

*F7, *3" , "8" 

6635 


DEFB 

#E9 , "K" , “H* 

6640 


DEFB 

*E3,"F\#F2 

6645 


DEFB 

“4" , "7* ,#£A 

6650 


DEFB 

*F5,*EE *V* 

6655 


DEFB 

G ,*F4, 5 

6660 


DEFB 

"6* ,#F9, *H" 

6665 


DEFB 

M B" 

6678 

6675 

Cl 

PUSH 

BC 

6680 


PUSH 

DE 

6685 


PUSH 

HL 

6690 


PUSH 

IY 

6695 


LD 

IY.STAT 

6788 

6785 

WAIT2 



6718 


CALL 

INKEY 

6715 


OR 

A 

6728 


JR 

Z ,NAIT2 

6725 

6730 

PRESS 

PUSH 

AF 

6735 

6740 

BEEP 

LD 

C,28 

6745 


LD 

D , 15 

6750 

6755 

6768 

BEEP0 

Dl 

LD 

B.D 

6765 

6770 

BEEP1 

EX 

(SP) ,IY 

6775 


EX 

(SP) , I Y 

6780 


EX 

<SP) ,IY 

6785 


EX 

< SP) ,IY 

6790 


DJNZ 

BEEP1 

6795 


LD 

A,C 

6888 


AND 

1 

6885 

6810 

6815 

6820 

6825 


RLCA 

RLCA 

RLCA 

RLCA 

OR 

7 

6838 


OUT 

(tFE) , A 

6835 


DEC 

C 

6848 


JR 

NZ.BEEPB 

6845 


POP 

AF 

6858 


RES 

5, (IY+0) 

6855 


POP 

IY 

6868 


POP 

HL 

6865 


POP 

DE 

6870 


POP 

BC 

6875 

6880 

6885 

6890 

6895 

INKEY 

El 

RET 

PUSH 

IY 

6900 


PUSH 

BC 

6905 


PUSH 

DE 

6910 


PUSH 

HL 

6915 


LD 

IY.STAT 

6928 


BIT 

5, ÍIY+0) 

6925 


LD 

A, (KS8) 

6930 


JR 

NZ , F IN 

6935 


XOR 

A 

6940 

6945 

FIN 

POP 

HL 

6950 


POP 

DE 

6955 


POP 

BC 

6960 


POP 

IY 

6965 


RET 


6978 

6975 

: následuje 

pracovni oblast 

6980 

6985 

; B IQSu 

GRG 

#F602 

6990 

BEGDAT 

EQU 

a 


6475 

; ŘIDIČI ZNAKY 

48 BYTE 

6995 



6480 

DEFB 

0,1,17,"1* 

700e 

DHAAD DEFS 

2 

6485 

DEFB 

"0", 16, 13. 32 

7305 

DIRBUF DEFS 

SEKSIZ 

6490 

DEFB 

26. 19,23, ‘2* 

7*10 

ALL0R DEFS 

28 

6495 

DEFB 

"9 ,15,12.0 

7015 

AtL0F s DEFS 

23 

6588 

DEFB 

24,4,5, "3* 

7020 

CHK0R DEFS 

ió 

6585 

DEFB 

"8*, 9, 11, 13 

7025 

CHK0F DEFS 

16 

6518 

DEFB 

3,6, 18, *4“ 

7030 

DMABUF DEFS 

SEKSIZ 

6515 

DEFB 

“7", 21, 18,14 

7835 

STACK DEFS 

ri 

JL 

6528 

DEFB 

22,7,28, *5" 

7848 

TIMER DEFW 

0 

6525 

DEFB 

"6*, 25, 8, 2 

7845 

FDCTIH DEFB 

0 

6530 

; HALA ČEŠTINA 


7050 

STÁT DEFB 

0 

6535 

DEFB 

0,tCl, B q“,"l" 

7055 

KS8 DEFB 

0, 0,0, 8 

6548 

DEFB 

- 5 -0* , *p* , 13,32 

7860 

KS4 DEFB 

0,0, 0,8 

6545 

DEFB 

#DA,#D3,#C5 

7065 

KS8 DEFB 

8 

6558 

DEFB 

*2" , *9* , #CF 

7070 

KS9 DEFB 

20 

6555 

DEFB 

“1 " ,8, "x" ,#C4 

7075 

KSA DEFB 

5 

6560 

DEFB 

#D7 , *3* , "8" 

7880 

PRETRY DEFS 

1 

*565 

DEFB 

#C9, *k" , “e" 

7885 

DMAREG DEF-S 

i 

6570 

DEFB 

iC3,*f ",tD2 

7098 



6575 

DEFB 

“4“ , "7* ,#CA 

7095 

:nasleduje pracovní ob: 

6588 

DEFB 

<D5,#CE, "v" 

7100 

íblokujlciho/deblokuj 1 1 

6585 

DEFB 

“g",#D4,"5* 

7105 

:algaritau pro obsluhu 

6598 

DEFB 

*6* ,fD9 , *h" 

7118 

jfloppy disku 

5 1/4* 

6595 

DEFB 

“b* 

71*5 

;1S sek/trk. 

40tr ks 

6688 

; VELKÁ ČEŠTINA 

7120 



6685 

DEFB 

0,*E1 , Q , 1 

7125 

;zadana disková adresa 

6610 

DEFB 

"8* , *P" ,13,32 

7130 

;SEKDSK - uloženo na ai 

6615 

DEFB 

#FA,#F3,#E5 

71u5 

SEKTRK DEFS 

'*1 . 

Á * 

6620 

DEFB 

"2" , "9" , tEF 

7148 

SEKSEC DEFS 

1 ; 


SEKSCR DEFS 1 ; 

;diskova adresa fyz. sekt. 

HSTDSK DEFS 1 ; 

HSTTRK DEFS 2 ; 

HSTSEC DEFS 1 ; 

;cisio požadovaného fyz. 

; sektoru 

SEKHST DEFS 1 ; 

;príznak H5TBUF aktivní 
HSTACT DEFS 1 ; 

;pr4znak odloženého zápisu 
HSTNRT DEFS 1 ; 

;cítac nealokovanych zápisu 
UNACNT DEFS 1 ; 

;diskova adresa dalsi vety 
;v nealokovanee bloku 
UNADSK DEFS 1 ; 

UNATRK DFF5 2 ; 

UNASEC DEFS 1 ; 

;kod chyby 
ERFLA6 DEFS l ; 

ERFL60 DEFS 1 

;priznak požadavku na ctěni 
RSFLAG DEFS 1 ; 

jpriznak cteci operace (=1) 
READOP DEFS 1 ; 

; t y p zápisové operace 
NRTYPE DEFS I ; 

; vyrovnávací paeet 
HSTBUF DEFS HSTSIZ j 

;nasleduje pracovní oblast 
;obsluhy radíce floppy 
jdisku typu 18272 


7325 FDCRW 


7330 

DEFB 

FDCFRH-H-1 

7335 

DEFB 

8, 0,8, 8,0 

7340 

DEFB 

N,E0T,6PL_RN 

7345 

DEFB 

DTL 

7350 

; f oreat 


7355 

FDCFRH 


7360 

DEFB 

FDCSC-8-1 

7365 

DEFB 

*4D,1,N,SC 

7378 

DEFB 

6PL_FT,DD 

7375 

;set cylinder 


7388 

FDCSC 


7385 

DEFB 

FDCSIS-8-1 

7398 

DEFB 

*8F,B,B 

7395 

;sense interrupt status 

7488 

FDCS1S 


7485 

DEFB 

FDCHOH-H-1 

7418 

DEFB 

*88 

7415 

;hoee 


7428 

FDCHOH 


7425 

DEFB 

FDCSPE-H-I 

7438 

DEFB 

*07,8 

7435 

i spéci fy - nastaveni 

7448 

jpocatecnich 

paraaetru FDC 

7445 

FDCSPE 


7450 

DEFB 

PCN-B-t 

7455 

DEFB 

Í83.SRTHUT 

7468 

DEFB 

HLTND 

7465 

spresent cylinder nueber 

7470 

PCN 


7475 

DEFS 

i 

7488 

saktivni hlava 

7485 

HEAD 


7498 

DEFS 

1 

7495 

; sektor 


7588 

SECTOR 


7505 

DEFS 

1 

7518 

$eisto pro uloženi výsledku 

7515 

; operace FDC 


7528 

FDCRES 


7525 

DEFS 

7 

7538 



7535 

ENDDAT EQU 

8 

7548 

DATSIZ EQU 

8-BE6DAT 

7545 



7558 

0R6 

iFCFC 

7555 

Dl 


7568 

JP 

INTERT 

7565 

; vstup do systeeu po 

7570 

í zavedeni z pasky 

7575 

ORB 

#FF8B 

7588 

Dl 


7585 

LD 

A, *20 

7598 

OUT 

(4) , A 

7595 

LD 

A,«FB 

7688 

LD 

I , A 

7685 

LD 

HL, INTERT 

7618 

LD 

(*FEFF) ,HL 

7615 

IH 

2 

7620 

LD 

SP,*FF7F 

7625 

LD 

HL,*FB8B 

7638 

LD 

BC , 256 

7635 

LD 

(HL) ,*FC 

7648 

LD 

DE.iFBBl 

7645 

LDIR 


7658 

LD 

C,CFF 

7655 

CALL 

CONOUT 

7668 

LD 

C, m ? B 


7665 

7670 

CALL 

El 

CONOUT 

7675 

CALL 

CONIN 

7680 

CALL 

CONIN 

“ v 

7685 

CP 

7690 

JR 

NŽ.PRECH0 

7695 

CAU. 

FORNR 

7700 

7705 

CALL 

PRECH0 

SAVESY 

7710 

LD 

SP , #80 

7715 

JP 

BOOT 


5 *C- 

12 i********-******************* 

s i: coomt : 

25 ; * * 

32 ;♦#*****«#•»•*****#********«** 
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42 ; potípdrogr am výstupu 
45 ;v racdu 64 znaku na řádek 
50 ; KOI -8CS-2 
55 0R3 

62 CONOUT 
65 LI) 

70 JP 

75 ADRCO DEFW 
80 ADDCUR DEFB 
85 BI3P DEFS 
90 TSCRL DEFB 
95 TABCHR ESU 
102 

125 ;tabuika adres podprogramu, 
110 '.zpracovávajících vystup 
115 ; znaku 
120 

125 TABCON 


130 

DEFW 

CONIC 

00- A e 

135 , 

DEFW 

CONIC 

01-'A 

140 

DEFW 

COHOME 

02- A B 

145 

DEFW 

CONIC 

03- A C 

150 

DEFW 

CONIC 

04- A D 

4 rr, 
i jJ 

DEFW 

CONIC 

05 - A E 

160 

DEFW 

CONIC t 06- A F 

165 

DEFW 

COBELL 

07- A G 

170 

DEFW 

COBS 

0S- A H 

175 

DEFW 

COTAB 

09- A I 

180 

DEFW 

COLF 

0A~ A J 

185 

DEFW 

CONIC 

0B- A K 

190 

DEFW 

COFF 

0C- A L 

195 

DEFW 

COCR 

0D- A M 

200 

DEFW 

CONIC 

0E- A N 

205 

DEFW 

CONIC 

0F~ A O 

210 

DEFW 

CONIC 

10- A P 

215 

DEFW 

CDROLL 

11- A S 

220 

DEFW 

COPAGE 

12- A R 

*? r 

«- i. J 

DEFW 

CONIC 

13- A S 

230 

DEFW 

CONIC 

1 4- A T 

235 

DEFW 

CONIC 

15- A U 

240 

DEFW 

COCLLI 

16- A V 

245 

DEFW 

CONIC 

17- A W 

250 

DEFW 

COUP 

18- A X 

255 

DEFW 

CONIC1 

19- A Y 

260 

DEFW 

CORIGH 

1A- A Z 

265 

DEFW 

COAT 

1B- A [ 

270 

DEFW 

CQNIC1 

1C- A 1 

275 

DEFW 

CONIC1 

1D- A 1 

280 

DEFW 

COBORD 

1£- AA 

285 

DEFW 

COINVE 

1F- A 

290 TABCS 




295 

DEFB 

32 ; #80 

300 

DEFB 

144 ; a 


305 

DEFB 

32 


310 

DEFB 

145 ;~c 


315 

DEFB 

146 :~d 


320 

DEFB 

148 ; “e 

* 

325 

DEFB 

32 


330 

DEFB 

32 


335 

DEFB 

32 


340 

DEFB 

149 ; ‘i 


345 

DEFB 

156 ;'u 


350 

DEFB 

32 


355 

DEFB 

32 


360 

DEFB 

32 


365 

DEFB 

150 ;~n 


370 

DEFB 

151 ; ‘o 


375 

DEFB 

32 


380 

DEFB 

32 


385 

DEFB 

152 i~r 


390 

DEFB 

153 ; s 


395 

DEFB 

154 j't 


400 

DEFB 

155 ; ‘u 


405 

DEFB 

32 


410 

DEFB 

147 ? 'e 


415 

DEFB 

32 


420 

DEFB 

157 ; ’k 


425 

DEFB 

158 ;~z 


430 

DEFB 

32 


435 

DEFB 

159 r 


440 

DEFB 

32 


445 

DEFB 

162 ; 


450 

DEFB 

32 


455 

DEFB 

M « N 



460 


DEFB 

128 ; A 

465 


DEFB 

32 

470 


DEFB 

129 ; ~C 

475 


DEFB 

130 i “D 

480 


DEFB 

132 ;“E 

485 


DEFB 

32 

490 


DEFB 

32 v 

495 


DEFB 

32 

500 


DEFB 

133 ; 'I 

505 


DEFB 

140 ; ~U 

510 


DEFB 

32 

515 


DEFB 

32 

520 


DEFB 

32 

525 


DEFB 

134 ;‘N 

530 


DEFB 

135 ; ' 0 

535 


DEFB 

32 

540 


DEFB 

T 

•JJL 

545 


DEFB 

136 ;“R 

550 


DEFB 

137 ;~S 

555 


DEFB 

138 ;'T 

560 


DEFB 

139 ; *U 

565 


DEFB 

32 

570 


DEFB 

131 ;'E 

575 


DEFB 

32 

580 


DEFB 

141 ; *Y 

585 


DEFB 

142 ;~Z 

590 


DEFB 

32 

595 


DEFB 

32 

600 


DEFB 

32 

605 


DEFB 

32 ; 

610 


DEFB 

32 

615 




620 

COO 



625 


LD 

A,C 

630 


CP 

32 

635 


JR 

C , COCB 

640 


BIT 

7, A 

645 


JR 

Z,C008 

650 


SUB 

128*64 

655 


RET 

C 

660 


LD 

H,0 

665 


LD 

L , A 

670 


LD 

DE, TABCS 

675 


ADD 

HL.DE 

680 


LD 

A, (HL) 

685 

COO0 



690 


PUSH 

AF 

695 


LD 

A, 1 

700 


LD 

(DISP+3) , A 

705 


POP 

AF 

710 


CALL 

CODPR 

715 


XOR 

A 

720 


LD 

(DISP+3) , A 

725 


LD 

HL, (ADDCUR) 

730 


INC 

HL 

735 


LD 

A, 64 

740 


CP 

L 

745 


JR 

NZ ,C001 

750 


INC 

H 

755 


LD 

L , 0 

760 

COOl 



765 


LD 

A, 24 

770 


CP 

H 

775 


CALL 

Z.SCROLL 

780 

C002 



785 


LD 

(ADDCUR) ,HL 

790 

CQQCUR 



795 


LD 

A, 143 

800 


CALL 

CQQPR 

805 


RET 


810 




815 

; podprogramy , 

zpracovávající 

820 

;ridici znaky 


825 




830 

CQCB 



835 


ADD 

A, A 

840 


LD 

L,A 

845 


LD 

H,0 

850 


LD 

DE, TABCON 

855 


ADD 

HL ,DE 

860 


LD 

E, (HL) 

865 


INC 

HL 

870 


LD 

D, (HL) 

875 


EX 

DE.HL 

880 


JP 

(HL) 

885 

CONIC 



890 


LD 

HL,COQ 

895 

CONIC0 



900 


LD 

(ADRCO) ,HL 

905 


RET 


910 

CONICl 



915 


LD 

HL, CONIC 

920 


JR 

CONIC0 

925 

? 



930 

COHQHE 



935 


CALL 

COCCUR 

940 

COHQM0 



945 


LD 

HL,0 

950 


LD 

(ADDCUR) ,HL 

955 


JR 

COOCUR 

960 

• 



965 

COBELL 



970 


LD 

HL, 130 

975 


LD 

DE,32 


980 


CALL 

949 

985 


RET 


990 

* 



995 

COBS 



1000 


CALL 

COOCUR 

1005 


LD 

HL, (ADDCUR) 

1010 


LD 

A , L 

1025 


OR 

H 

1020 


JR 

Z, COOCUR 

1025 


DEC ■ 

HL 

1030 


LD 

A ,#FF 

1035 


CP 

L~ 

1040 


JR 

NZ.C002 

1045 


LD 

L,63 

1050 


JR 

C002 

1055 

• 



1060 

COTAB 



1065 


CALL 

COOCUR 

1070 


LD 

HL, (ADDCUR) 

1075 


LD 

A,L 

1080 


ADD 

A, 9 

1085 


AND 

#F8 

1090 


LD 

L ,A 

1095 


CP 

64 

1100 


JR 

NZ.C0Q2 

1105 


INC 

H 

1110 


LD 

L,0 

1115 


JR 

C002 

1120 

; 



1125 

ČOLF 



1130 


CALL 

COOCUR 

1135 


LD 

HL, (ADDCUR) 

1140 


INC 

H 

1145 


JR 

COOl 

1153 

« 



1155 

COFF 



1160 


LD 

HL,*4000 

1165 


LD 

SE, #4001 

1170 


XOR 

A 

1175 


LD 

(HL) , A 

1180 


LD 

BC, 24*32*8-1 

1185 


LDIR 


1190 


JR 

COHOH0 

1195 




1200 

COCR 



1205 


CALL 

COOCUR 

1210 


LD 

HL, (ADDCUR) 

1215 


LD 

L,0 

1220 


JP 

C002 

1225 

J 



1230 

COROLL 



1235 


LD 

A , 1 

1240 

C005 



1245 


LD 

(TSCRL) , A 

1250 


RET 


1255 

5 



1260 

COPAGE 



1265 


XOR 

A 

1270 


JR 

CCC5 

1275 

; 



1280 

COCLLI 



1285 


LD 

HL, (ADDCUR) 

1290 


PUSH 

HL 

1295 

COCLL0 



1300 


INC 

HL 

1305 


LD 

A, 64 

1310 


CP 

L 

1315 


JR 

Z, COCLLI 

1320 


LD 

(ADDCUR) ,HL 

1325 


PUSH 

HL 

1330 


LD 

C , 32 

1335 


CALL 

COQ 

1340 


POP 

HL 

1345 


JR 

CQCLL0 

1350 

COCLLI 



1355 


XOR 

A 

1360 


LD 

(DISP+3) , A 

1365 


CALL 

COOCUR 

1370 


POP 

HL 

1375 


LD 

(ADDCUR) ,HL 

1380 


RET 


1385 

; 



1390 

COUP 



1395 


CALL 

COOCUR 

1400 


LD 

HL, (ADDCUR) 

' 1405 


DEC 

H 

1410 


LD 

A,#FF 

1415 


CP 

H 

1420 


JR 

NZ.CQUP8 

1425 


INC 

H 

1430 

COUP0 



1435 


JP 

CQ02 

1440 

? 



1445 

CORIGH 



1450 


CALL 

COOCUR 

1455 


LD 

HL, (ADDCUR) 

1460 


INC 

HL 

1465 


LD 

A, 64 

1470 


CP 

L 

1475 


JR 

NZ ,CQRIG0 

1480 


INC 

H 

1485 


LD 

L , 0 

1490 


LD 

A, 24 

1495 


CP 

H 


#6802 

HL, (ADRCO) 
(HL) 

CDO 

20,20 

4 

#7000 


1588 


JR 

NZ ,CQRIG0 

1740 

CQOPR 


1980 

INC 

H 

1505 


LD 

L ,63 

1745 

PUSH 

AF 

1985 

INC 

DE 

1510 


DEC 

H 

1758 

CALL 

TRANCG 

1990 

DJNZ 

C00PR1 

1515 

CQR160 



1755 

POP 

AF 

1995 

RET 


1520 


JP 

CQQ2 

1760 

SUB 

32 

2000 



1525 

* 



1765 

LD 

L , A 

2005 

: podprogram 

převodu adresy 

1530 

ČOAT 



1778 

LD 

H , 8 

2018 

stisknutého 

znaku 

1535 


CALL 

COOCUR 

1775 

ADD 

HL , HL 

2815 



1548 


LD 

HL.COATl 

1780 

ADD 

HL , HL 

2820 

TRANCO 


1545 

C0AT8 



1785 

ADD 

HL,HL 

2825 

LD 

HL, (ADDCUR) 

1550 


JP 

CONIC0 

1790 

EX 

DE.HL 

2838 

LD 

A,H 

1555 

C0AT1 



1795 

LD 

HL,TABCHR 

2035 

AND 

#07 

1568 


LD 

HL, (ADDCUR) 

1808 

ADD 

HL.DE 

2048 

RRCA 


1565 


CP 

24 

1885 

EX 

DE,HL 

2845 

RRCA 


1570 


JR 

C , COAT10 

1810 

LD 

HL, (DISP) 

2858 

RRCA 


1575 


LD 

A, 23 

1815 

LD 

A, (DISP+2) 

2055 

SRA 

L 

1530 

C0AT18 



1820 

LD 

C , A 

2060 

PUSH 

AF 

1535 


LD 

H,A 

1825 

LD 

8,8 

2065 

ADD 

A,L 

1590 


LD 

(ADDCUR) ,HL 

133e 

C00PR1 


2070 

LD 

L,A 

1595 


LD 

HL , CQAT2 

1335 

LD 

A, (DE) 

2075 

LD 

A,H 

1680 


JR 

COAT0 

1840 

PUSH 

AF 

2080 

AND 

#F8 

1605 

CQAT2 



1845 

BIT 

8,C 

2085 

QR 

#40 

1610 


LD 

HL, (ADDCUR) 

1850 

JR 

NZ.CQ0PR2 

2890 

LD 

H, A 

1615 


CP 

64 

1855 

LD 

A, (DISP+3) 

2895 

LD 

(DISP) , HL 

1620 


JR 

C.C0AT28 

1860 

AND 

A 

2100 

POP 

AF 

1625 


LD 

A, 63 

1865 

JR 

Z ,CQQPR3 

2105 

LD 

A,0 

1630 

CQAT20 



1878 

LD 

A, #0F 

2110 

RLA 


1635 


LD 

L,A 

IS75 

AND 

(HL) 

2115 

LD 

(DISP+2) , A 

1640 


LD 

(ADDCUR) , HL 

1888 

LD 

(HL) , A 

2120 

RET 


1645 


CALL 

COOCUR 

1885 

C0QPR3 


2125 



1658 


LD 

HL.CQO 

1890 

POP 

AF 

2130 

; podprogram 

scrollovani pri 

1655 


JR 

C0AT8 

1895 

JR 

C00PR5 

2135 

{reziau scroli, pri režimu 

1660 




1908 

C00PR2 


2140 

tpage pouze 

provede přesun 

1665 

CQBORD 



1905 

LD 

A, (DISP+3) 

2145 

jkurzoru, v 

HL vraci novou 

1670 


LD 

HL , C0BGR8 

1910 

AND 

A 

2150 

{pozici kurzoru 

1675 


JP 

CONIC0 

1915 

JR 

Z ,C00PR4 

2155 



1630 

CQB0R8 



1920 

LD 

A , #F0 

2160 

SCROLL 


1685 


LD 

C,A 

1925 

AND 

(HL) 

2165 

LD 

A, (TSCRL) 

1690 


AND 

#07 

1930 

LD 

(HL) , A 

2170 

OR 

A 

1695 


OUT 

(#PE) , A 

1935 

CQCPR4 


2175 

JR 

Z, SCRPAG 

1700 


JP 

CONIC 

1940 

POP 

AF 

2188 

PUSH 

HL 

1705 

> 



1945 

RRCA 


2185 

CALL 

#0DFE 

1718 

COINVE 



1950 

RRCA 


2190 

POP 

HL 

1715 


RET 


1955 

RRCA 


2195 

LD 

H,23 

1720 




1960 

RRCA 


2208 

RET 


1725 

: podprogram 

tisku znaku z r 

1965 

CQ0PR5 


2285 

SCRPAG 


1730 

; A na 

pozici 

(ADDCUR) 

1970 

XOR 

(HL) 

2210 

LD 

H,0 

1735 




1975 

LD 

(HL) , A 

2215 

RET 




RNDr. Stanislav Uličiansky, Komenského 51, 04001 Košice 


Alfanumerický alebo grafický displej je jednou z najdóležitejších časti mikropočítača. V súčasnosti sú na displej 
osobných mikropočitačov kladené už poměrně vysoké nároky. Na ich konštrukciu sa v moderných 
mikropočítačoch používá jú takmer výlučné špecializované VLSI kontroléry, ktoré značné zjednodušujú realizáciu 
týchto obvodov. V našich podmienkach nemá konštruktér mikropočítača k dispozícii v súčasnosti žiaden typ 
takéhoto video kontroléra, preto mu ostává jediná možnost* — zostavif příslušné obvody z dostupných 10 nižšej 
integrácie, hoci na to spotřebuje takmer 10x viac obvodov. 

Na stránkách AR už bolo publikovaných niekoTko zapojeni TV displejov róznej zložitosti (AND-1, AND-1Z, 8080 
MC-DI). Preto som pčvodne nemal záměr publikovaf ďalšl a pomeme ziožitý typ zapojenia, ktoré je na homej 
hranici amatérských možnosti. Opakovanie tematickej úlohy MIKROKONKURZU AR’87 na konštrukciu 
inteligentného TV displeja ma však podnietilo k tomu, aby som predsa len spracoval popis displeja, ktorý som 
postavil k svojmu amatérskému osobnému mikropočítačů. 


Základné technické údaje: 

Formát zobrazenia textu: 32/64 znakov 
x 15 (16) riadkov. 

Formát zobrazenia semigrafických zna- 
kov: 

32/64 znakov x 30(32) riadkov. 

Raster znaku: 8x8 bodov. 

Repertoár znakov: 128 štandardných 
znakov pódia normy ASCI + 128 
znakov, ktoré si móže zvoliť uživatel*. 
Generátor znakov je fixný v EPROM 
typu 2716. Pri použiti EPROM typu 
2732 sa rozšíri repertoár znakov až na 
512. 


Módy zobrazenia znakov: 

— normálny znak, 

— inverzný znak, 

— blikajúci znak, 

— znak s dvojitou šfrkou, 

— zatemněný znak, 

— možno nastavit 8 úrovní jasu pre 
každý znak. 

Pre každý znak je možné navolit 
rubovotnú kombináciu uvedených 
módov zobrazenia. 

Typ displeja: Displej s vlastnou obrazo- 
vou památou 2x 2kB, ktorá je sú- 
časťou adresového priestoru mikro- 
procesora s prioritou pristupu proceso- 
ra do tejto památe. 


Rolovanie obrazu: Je zabezpečené 
obvod mi TV displeja s možnostou 
jemného rolovania po jednotlivých TV 
linkách nahor alebo nadol. 

Stredovanie obrazu: Pozíciu obrazu na 
obrazovke TV prijímača je možno na- 
stavovat v horizontálnom aj vertikál- 
nom smere. 
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Popis zapojenia 

Pre pochopenie činnosti tohoto dis- 
pleja už nevystačíme len so samotnou 
schémou zapojenia, ako například 
v případe pomeme jednoduchého dis- 
pleja 8080 MC-DI [5], ale je potřebné 
popísat aspoň najdóležitejšie prvky 
a funkciu použitého riešenia. Aby tento 
popis nezabral příliš veta miesta, snažil 
som sa ho urobit čo najstručnejším, no 
přitom dostatočne přesným a vý- 
stižným. Přesvědčil som sa však, že 
urobit takýto popis pre zapojenie pozo- 
stávajúce z 54 IO už nie je len čisté 
technickou záležitosťou, ale na svoje si 
príde aj literárně a výtvarné umenie. 
Čitaterom, ktorí nie sú oboznámení 
s princípmi činnosti TV displejov, od- 
porúčam sa vopred oboznámit aspoň 
s článkami z predchádzajúcich 
ročníkov AR [1 — 5]. 

Kvóli stručnosti tu neuvádzam obvyk- 
lú blokovú schému zapojenia, ale celý 
popis sa bude viazat na úplnú schému 
zapojenia, ktorá je uvedená na obr. 1 
na str. 40, 41 , a na ostatné doplňujúce 
taburky a obrázky. 

Popisovaný displej vytvára na obra- 
zovke raster 51 2 x 256 bodov. Pretože 
jeden znak je zobrazovaný v rastri 
8x8 bodov, znamená to, že mčžeme 
zobrazit 64 znakov v 32 riadkoch. To 
odpovedá právě rozsahu 2048 znakov 
na celú obrazovku., Pretože nie sú 
obvodmi displeja generované trvale 
zatemněné riadky ako napr. v displeji 
AND-1 , pri zápise textu musíme znaky 
zapisovat len do každého druhého 
riadku, čo nám dává celkove 16 zobra- 
zitelných alfanumerických riadkov. Je 
to sice podstatné menej riadkov ako 24 
viditelných riadkov v AND-1, avšak 
^ vďaka váčšej medzere je text na tomto 
'displeji ovefa přehrad nejší. Hlavným 
účelom tohoto riešenia je však to, aby 
bolo možné v semigrafickom režime 
pokryt znakmi celú plochu obrazovky. 
V aifanumerickom režime nám však 
toto riešenie umožňuje umiestnit do 
odderovacích prázdných riadkov zob- 
razenie diakritických znamienok nad 
verké aj malé písmená, vďaka čomu tu 
máme možnost „naučit" tento displej 
slovenčinu alebo češtinu, čo je pri rastri 
znaku 8x8 bodov obtiažne realizova- 
tefné. 

Vyššie uvedený raster zobrazen ia je 
určený zapojením obvodov primárnej 
časovej základné, ktorá pozostáva 
z obvodov E3, D3, D4, E4, D5, E7, E8. 
Prvým stupňom tejto časovej základné 
je oscilátor, vytvořený z invertorov E3, 
ktorý pracuje na frekvencii 12 MHz. 

Pretože táto frekvencia je už poměr- 
ně vysoká pre běžné obvody TTL, je 
vhodné v tomto stupni použit obvod 
typu 74S04 resp. 74LS04. Za osciláto- 
rom následuje kaskáda deličov 1:16, 
1:16 a 1:3, ktorými je vytvořený celkový 
deliaci poměr 1:768. Prvé dva stupně 
tejto deličky je potřebné osadit syn- 
chrónnymi čítačmi typu 74193. Výsled- 
ný produkt z tejto kaskády — signál 
AP9 s frekvenciou 15 625 kHz — slůži 
ako signál, z ktorého sa odvodzuje 
horizontálny zatemňovací a synchroni- 
začný impulz. Druhý stupeň primárnej 
časovej základné je tvořený obvodmi 
1/2 D5, E7, E8 — vytvárajú deličku 
1 :320, ktorá zabezpečuje tvorbu 320 TV 
riadkov a signálu o frekvencii 48,8 Hz 
pre obvody vertikálneho zatemňovania 
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a synchronizácie. Z celkového rastru 
768 bodov x 320 riadkov spadá do 
viditernej zóny 512 bodov x 256 riad- 
kov. To odpovedá poměrně vetkému 
pokrytiu plochy obrazovky TV prijíma- 
ča, vďaka čomu sa objavujů problémy 
s ostrostou kresby v rohoch obrazovky 
a je nevyhnutné zabezpečit možnost 
přesného nastavenia pozície obrazu na 
Qbrazovke. Túto úlohu plnia obvody 
tvorby zatemňovacích a synchroni- 
začných impulzov. 

Horizontálně zatemnenie a synchro- 
nizácia sú odvodené z výstupu AP9 
prvého stupňa primárnej časovej zá- 
kladné (AP9 = HZATZ). Invertovaný 
signál HZATZ je přivedený na vstup 
posuvného registra E9 (74164), ktorý je 
ovládaný hodinovým signálom AQ0 
resp. \QĎ. časové posunutie, ktoré je 
vytvárané v tomto obvode, je potřebné 
na zabezpečenie správného zobrazenia 
v súvislosti s použitím vyrovnávacích 
registrov Cl, C3. Z vhodného výstupu 
tohoto obvodu sa odoberá signál 
HZATP, ktor ý sa využívá na vytvorenie 
signálu ZAT v obvode E6/6. Je taktiež 
přivedený na vstup ďalšieho posuv- 
ného registra D9, ktorý zaistuje 
možnost nastavenia obrazu v horizon- 
tálnom smere. Toto nastavovanie sa 
realizuje vofbou vhodného výstupu na 
D9, z ktorého sa odoberá spúšťací 
impulz pre MK0 C9 (1/2 74123), ktorý 
generuje horizontálny synchronizačný 
impulz o dížke 4,5 až 4,9 ns. Jemné 
nastavenie pozície obrazu v horizontál- 
nom smere je tiež možn é urobit votbou 
signálu AP3 alebo ÁP3 ako hodinového 
signálu pre posuvný register D9. Ob- 
dobným spósobom ako pre horizontál- 
ny rozklad sa zo signál u BP 8 = VZATZ 
vytvára v E6/6 signál ZAT a po voli- 
tefnom spozdení obvodom D8 sa v C9 
(druhá polovica obvodu) vytvára verti- 
kálny synchronizačný impulz o dížke 
160 jis. Horizontálny a vertikálny syn- 
chronizačný signál sa pomocou hradla 
EX-OR B9/3 sčítavajú do úplnej syn- 
chronizačnej zmesi SYNC, ktorá je 
vyvedená na špičku č. 15 konektora K4. 

Primárná časová základňa sa využívá 
len na vytváranie zatemňovacích 
a synchronizačných signálov, iba sig- 
nály AP0 až AP3 sa zúčastňujú na 
tvorbě zobrazenia znaku ako adresa 
bodu znaku na TV riadku, AP0 -h AP2 
pri zobrazení normálneho znaku a 
AP1^-AP3 gri zobrazení znaku s dvoji- 
tou šířkou. Všetky ostatné adresovacie 
signály, ktoré určujú adresu TV riadku 
v znaku, adresu znaku v riadku a štipci 
sú generované sekundárnou časovou 
základňou. Prvý stupeň tejto sekundár- 
nej časovej základné, pozostavajúci 
z obvodov C5, D5 1/2, F5 1/2, generuje 
6bitovú adresu znaku na riadku určenú 
signálmi AS0 až AS5. Tento čítač je in- 
krementovaný signálom AQ2 = AP2 pre 
normálny znak a signálom o polovičnej 
frekvencii AQ2 = AP3 pre znak s dvoji- 
tou šířkou. Toto riešenie umožňuje dy- 
namicky kombinovat na jednom riadku 
normálně a široké znaky bez nutnosti 
zdvojovat zápis znaku pre široký znak. 
Ak sú všetky znaky na riadku s dvoj- 
násobnou šířkou, potom počas trvania 
aktívnej časti riadku sa stačí naadreso- 
vat len prvých 32 znakov, ostatné zna- 
ky, hoci sú zapísané v obrazovej pa- 
máti, nebudú zobrazené. Počas zatem- 
nenej časti riadku je in kremen tácia 
čítača blokovaná signálom HZATZ pro- 
stredníctvom hradla E6/3. Horizontálny 
synchronizačný impulz vynuluje tento 
čítač a pre každý TV riadok sa začína 
počítat odznova. 


Druhý štupeň sekundárnej časovej 
základné je tvořený obvodmi D6 a D7. 
Výstupné signály BS0 — BS2 určujú 
adresu TV riadku v znaku a dalšie 
signály BS3 — BS7 určujú 5 bitovú 
adresu znakového riadku (32 možných 
-znakových riadkov). Tento čítač je 
inkrementovaný horizontálnym syn- 
chronizačným impuizom HSYNC v ča- 
se, keď nie je akt ívnv ve rtikálny za- 
temňovací impulz (VZATZ = H) a je 
nulovaný vertikálnym synchronizačným 
impuizom. 

široká paleta zobrazovacích mož- 
ností, ktoré poskytuje tento displej, je 
zabezpečená použitým spósobom or- 
ganizácie obrazovej památe. Táto pa- 
mát pozostáva z dvoch úplné samo- 
statných 2 kB blokov památe RAM, 
ktoré sú zostavené z 8 ks 10 21 14. Tieto 
bloky sú z pohradu mikroprocesora 
organizované ako súčasf jeho ope- 
račnej památe. Použité adresovacie 
obvody umožňujú takmer rubovotne 
rozmiestnit tieto bloky v celom priesto- 
re 64 kB. Akonáhle procesor adresuje 
obrazovú památ, pripájajú sa adresové 
vodiče památí na adresovú zbernicu 
procesora prostredníctvom prepínačov 
adresovej zbernice, zostavených 
z obvodov typu 74157 (10 05, B5, B6, 
B7). Pripojenie památí na datovú zber- 
nicu procesora sa realizuje pomocou 
odderovačov typu MH3216, pričom 
základnou zvláštnosťou je tu to, že pre 
každý památový blok máme samostat- 
ný oddeťovač datovej zbernice. Vďaka 
tomuto riešeniu nie sú datové vodiče 
týchto pa mátových blokov navzájom 
pospájané a preto sa z hradiska vnútor- 
ných obvodov TV displeja javí obrazová 
památ ako jediný blok 2k, ale so 16 
bitovou datovou zbernicou. Táto orga- 
nizácia obrazovej památe sa potom 
využívá tak, že 8 bitov reprezentuje 
znakový bajt a druhých 8 bitov zas 
příznakový bajt. Preto potom nazýváme 
památový blok realizovaný obvodmi 
BIL, B1H, B2L, B2H ako obrazovú 
památ pre příznaky a památový blok 
s obvodmi B3L, B3H, B4L, B4H ako 
obrazovú památ pre znaky. Každému 
bajtu v památí znakov odpovedá pří- 
znakový bajt v památí príznakov 
s adresou vyššou o 2k v rámci adreso- 
vého priestoru procesora a s rovnakou 
adresou v rámci obvodov displeja. 
Pokiar sa majú zobrazovat znaky 
v rovnakom móde zobrazenia, potom 
na zápis znaku stačí jeden bajt, pričom 
předpokládáme, že památ príznakov je 
naplněná požadovaným obsahom. Po- 
kiar je potřebné zapisovat znaky 
s róznym módom zobrazenia, potom sa 
musia do obrazovej památi zapisovat 
2 bajty — znakový aj příznakový. 

Datová zbemica památi znakov DZX 
sa obvyklým spósobom pripája na 
adresové vodiče A3 až A10 generátor a 
znakov, ktorý je v památi EPROM typu 
2716. Najnižšie tri adresové vodiče 
EPROM sú napojené na signály BQO, 
BQ1, BQ2, ktoré reprezentujú adresu TV 
riadku v znaku. Na výstupoch obvodu C4 
máme v paralelnej podobě prítomnú 
osmicu bitov, ktoré odpovedajú poža- 
dovanému zobrazeniu světlých a tma- 
vých bodov v znaku. Táto paralelná 
informácia sa neprevádza okamžité na 
sériový tvar, ale přechodné sa ucho- 
vává vo vyrovnávacom registri C3 
(MH3212). Výstupy z obrazovej památe 
pre příznaky DPX sa pripájajú na druhý 
vyrovnávací register Cl, opáf s IO 
MH321 2. Tieto dva vyrovnávácie regis- 
tre Cl, C3 sú riadené signálom STBV 
tak, aby sme na ich výstupoch malí 


vždy platnú informáciu pre zobrazova- 
ný znak — vtastnú znakovú časť aj 
příznakový časť. Pomocou týchto vy- 
rovnávacích registrov sa odstraňuje 
spozdenie, ktoré by inak bolo spósobe- 
né prechodom informácie o zobrazova- 
nom znaku cez generátor znakov 
v památi EPROM. Pretože pre normál- 
ny znak a znak s dvojnásobnou šířkou 
je potřebné menif obsah vyrovnávacích 
registrov v odlišných okamžikoch, sig- 
nál STVB je vytváraný prepínačom D2 
(74157), pričom pre normálny znak je 
STVB = APO. API. AP2 (výstup F3/6) 
a pre široký znak je STBV = CAD3 (vý- 
stup D3/12). 

Výstupy z vyrovnávacieho registra C3 
sú připojené na vstupy multiplexera C2 
(74151), na ktorého adresové vstupy A, 
B, C sú připojené signály AQO až AQ2. 
Tieto signály sú, ako už bolo spomína- 
né, vytvárané zo signálov ASO až AS3 
pomocou prepínača D2 (74157). Tým je 
zabezpečené správné vytváranie zo- 
brazenia bodu v znaku v závislosti na 
zvolenom type znaku (normálny resp. 
široký). Multiplexer C2 je naviac pro- 
stredníctvom vstupu S hradlovaný sig- 
nálom z F3/8, čo je signál s periódou 
okolo 1 s vytváraný multivibrátorom E2. 
Samotný signál z multivibrátora je 
však ešte hradlovaný signálom z výstu- 
pu Cl/04 prostrednfctvom hradla 
F3/12. Tento obvod zabezpečuje funk- 
ciu blikania obrazu, ktoré je povolova- 
né nastavením bitu DO = H = 
log 1 v príznak ovom b aite. Výstupné 
signály VIDEO a VIDEO z multiplexera 
C2 sú cez sústavu z hradiel Dl přivede- 
né na vstup E3 dekodéra El , realizova- 
ného pomocou obvodu typu MH 3205. 
V závislosti na stave výstupu Cl/06 sa 
preto potom realizuje normálně afebo 
inverzné zobrazenie znaku. Výstupný 
signál Cl/08, odpovedajúci bitu D2 
v príznakovom bájte, je označený ako 
DBL a zabezpečuje prepínanie obvodu 
D2, teda obvodu prepínania zobrazenia 
normálneho znaku a širokého znaku. 


Ďalší signál Cl/10 = D3 v stave D3 
= H = log 1 spósobuje, že sa prostred- 
níctvom riadiaceho vstupu El zabloku- 
je dekodér El , vďaka čomu sa zatem- 
ňuje zobrazenie rovn ako ako sa za- 
temňuje počas signálu 2AŤ = H = log 0, 
ktorý je přivedený na povolovací vstup 
E2 obvodu El. K zatemneniu zobraze- 
nia dochádza však taktiež počas doby, 
kedy je obrazová památ p řipoj ená na 
zbernicu procesora a signál SEL (připo- 
jený na vstup hradla A5/08) je v aktív- 
nom stave L. Vďaka tomu sa rušenie 
zobrazenia na obrazovke počas zápisu 
dát do obrazovej památe realizuje ako 
čierne čiarky vytrhávané z bieleho 
obrazu. Ako je známe, toto rušenie sa 
nedá jednoduchým spósobom od- 
strániť. V tejto podobě však pri bielom 
pišme na čiernom pozadí bude minima- 
lizované. 

Adresové vstupy dekodéra El sú 
připojené na ďalšie 3 bity (D4, D5, D6) 
vyrovnávacieho registra pre příznaky 
(obvod Cl). V závislosti na stave týchto 
bitov sa potom pri aktivácii dekodéra 
prostredníctvom povolovacích vstupov 
El , E2, E3 aktivuje do stavu L jeden 
z výstupov 0 až 7. Na tieto výstupy je 
potom připojený obvod prevodníka TV 
úrovní, ktorý je realizovaný tak, že 
každému z výstupov 0 až 7 dekodéra 
El priratfuje inú úroveň jasu. Schéma 
tohoto prevodníka je uvedená na 
obr. 2. Realizovaný je na malej samo- 
statnej doske plošného spoja, ktorá je 
spojená s doskou displeja káblom pro- 
stredníctvom konektora K4. 

Je to vlastně velmi jednoduchý 
převodník D/A rozlišujúci 8 analogo- 
vých úrovní. Prvá verzia tohoto prevod- 
níka bola spojená s vf TV moduláto- 
rom. V tomto případe sa vyžadovala 
negativna modulácia a preto bolo 
vhodné, že dekodér El má výstupy 
aktivně v stave L. Celé zapojenie preto 
obsahovalo len 3 tranzistory, niekolko 
diod a pasivné prvky. Ketf som však 
realizoval verziu displeja so 64 znakmi 
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nou moduláciou v tranzistorovom stup- 
ni nedávala rozumnú možnost nastavo- 
vania jednotlivých úrovní jasu, ukázalo 
sa ako jediné vhodné, aj keď trochu 
nákladné, riešenie s tranzistormi 
p-n-p spínajúcimi v áktívnom stave 
rezistory Rxa (X=1 až 9) na napáiie +5 V. 
V súčtovom bode x potom získáme po- 
třebné napátie s odstupňovanými am- 
piitúdami, ako je to schématicky 
znázorněné na obr. 3. Odstupňovanie 
amplitúd sa dá nastavovat změnou re- 
zistorov Rx 3 . 

Na závěr popisu zapojema uvaazam 
ešte stručné údaje o ostatných obvo- 
doch displeja. Obvody 05, B5, B6, B7 
(4x 74157) tvoria přepínač adresovej 
zbernice pre památ. Tento přepínač 
pripája památe na adresovú zbernicu 
procesora keď je signál SEL = H, tj. 
keď chce procesor čítat alebo zapiso- 
vat dáta do obrazovej památe. Súčas- 
ne tento signál prostredníctvom inver- 
tora A6/12 a hradla A5/8 zatemňuje 
obrazovku počas přístupu procesora 
do památe. Na vstupy XI týchto pre- 
pínačov sú připojené adresové vodiče 
BAO až BA9 adresovej zbernice proce- 
sora. Na druhů sadu vstupov X0 sú 
připojené priamo vodiče ASX prvého 
stupňa sekundárnej časovej základné, 
zatial čo výstupy BSX druhého stupňa 
časovej základné idú najprv do su- 
mátora, realizovaného obvodmi C6, C7, 
a až odtia! ako signály BQX idú na 
vstupy prepínača adries. V sumátore sa 
realizuje súčet dvoch 8 bitových hodndt 
MODULO 256, kde druhou vstupnou 
veličinou je obsah registra C8. Pokial je 
v registri C8 zapísaná hodnota 00H, 
potom sa nič nedeje. Keď však do něho 
zapíšeme hodnotu například OFH, po- 
tom v okamžiku, keď sa na obrazovke 
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Obr. 3. Schema- 
tické znázornenie 
vzťahov medzi 
amplitúdami vý- 
stupného signálu 
z prevodníka TV 
úrovně pre jednot- 
livé signály VIDEO 
X a SYNC 


Obr. 2. Převodník signálov video a syne 
na úplný videosignál s rozlišením os- 
mich úrovní jasu 

na riadok, kvalita obrazu cez modulátor 
už přestala vyhovovat. Preto som reali- 
zoval priamy vstup video signálu do 
televízora obdobným spdsobom ako 
v [6]. V tomto případe však potřebuje- 
me pozitivnu moduláciu (najváčšia am- 
plitúda odpovedá úrovni bielej). Pre- 
tože priama inverzia signálu s negatív- 


začína písaf prvý aktívný televízny 
riadok, obrazová památ a generátor 
znakov je adresovaný tak, že sa z nich 
vyberajú údaje, ktoré odpovedajú še- 
stnástemu TV riadku. Inkrementáciou 
registra C8 o +1 sa posúva obraz 
o 1 TV riadok nahor, dekrementáciou 
sa posúva o 1 TV riadok nadol. Cyklic- 
kým opakováním tejto inkrementácie 
alebo dekrementácie sa realizuje tak- 
mer spojité posúvanie obrazu smerom 
nahor alebo nadol, ktoré je vetmi 
příjemné na oči a znižuje zrakovú 
únavu pri dlhšietrvajúcej práci s po- 
čítačom. Obvyklé rolovanie obrazu 
o jeden znakový riadok pri příchode 
znakov CR LF sa potom realizuje ako 
cyklus 16 inkrementácií v smyčke 
s časovým spozdením, ktorého změnou 
sa nastavuje požadovaná rýchlost rolo- 
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vania. Pracujem s profesionálnym po- 
čítačom s displejom typu VT 100, ktorý 
má realizované toto spojité rolovanie 
a preto viem oceniť jeho výhody. 

Výstupný signál BQ7 zo sumátora nie 
je využívaný ako adresový vodič, ale 
zabezpečuje prepínanie horného a dol- 
ného bloku obrazovej památe znakov 
a príznakov. K tomuto prepínaniu musí 
dochádzať v okamžiku, keď sa ukončí 
kreslenie 127 riadku a má sa začať 
kreslit 128 TV riadok. K zmene hodnoty 
BS7 = BQ7 z L na H dochádza pri 
nábežnej hrané signálu HSYNC, ktorý 
inkrementuje čítače D6, D7. Aby nedo- 
chádzalo ku kolízii medzi dolnou 
a hornou častou obrazovej památe pri 
přepínaní, je potřebné zaistit, aby na 
určitú dobu a vo vhodnom okamžiku 
bolí obidve památe odpojené. Dosah u- 
je sa to tým, že signály BQ7 a BQ7 sú 
počas doby horizontálneho synchroni- 
začného impulzu (4,5 fis) zahradlované 
v obvo doch F7/6, F7/11 signálom 
HSYNC. 


Zapojenie obvodov dekodéra adries 
je v podstatě štandardné. Je zabezpe- 
čené úplné dekódovanie adries, pri- 
čom je možné zvolit uloženie bloku 
4 kB obrazovej památe fubovofné 
v rámci každého z ósmich blokov 8 kB. 
Jedinou zvláštnosfou dekodéra adries 
je to, že vďaka použitiu samostatných 
odderovačov adresovej zbernice pre 
památ znakov a památ príznakov bolo 
nevyhnutné z dvoji t obvody generácie 
signálov CS a DCE pre oddetovače s IO 
typu 3216. V zapojení, ktoré je uvedené 
na obr. 1 , je obrazová památ pre znaky 
uložená na adresách E000H až E7FFH 
a památ pre příznaky na adresách 
„E800H až EFFFH. Nakorko je použité 
rozdelenie obrazu na riadky a stípce 
v mocninách čísla 2 (64 x 32), je 
zostavenie tabuťky adries pre jednotli- 
vé pozície na obrazovke jednoduché 
a nie je potřebné ho zvlášť uvádzať. 

Pri zobrazovaní 256 TV riadkov 
z celkového počtu 320 je pokrytá 
takmer celá plocha obrazovky, pričom 
v rohoch obrazovky sa stávajú písmená 
vďaka astigmatizmu nečitatefné. Tento 
problém je zvlášť citerný, keď chceme 
použit zobrazenie so 64 znakmi na 
riadok. Preto som realizoval doplňujúci 
obvod, ktorý predlžuje vertikálny za- 
temňovací impulz tak, že sú zatemněné 
tiež pósledné dva (30. a 31.) riadky. Po 
odpovedajúcej zmene polohy vertikál- 
neho synchronizačného impulzu — vy- 
stredení obrazu — je už čitaternosf 
lepšia. Zapojenie tohoto obvodu je 
uvedené na obr. 4. Pokiar nepoužíváme 
TV přijímač aj na běžné účely, je možné 
tento problém vyriešit jednoducho 
zmenšením vertikálneho rozměru obra- 
zu přestavením příslušného ovládacie- 
ho prvku na TV přijímači. Vytvořením 
žatemnenej časti aktívnej zóny obrazu 
však je možné docielit niektoré zvlášt- 
ně efekty. V tejto žatemnenej zóně sa 
móže realizovat nulovanie riadku alebo 
zápis nového obsahu riadku, vďaka 
čomu sa horizontálna změna obsahu 
riadku stane neviditerná a pri spojitom 
rolovaní textu sa na dolnej hrané 
obrazu bude vynárať už hotový zapísa- 
ný riadok. Taktiež je možné realizovat 
rolovanie obrazu o jeden riadok (jeden 
dvojriadok) spát s minimálnou progra- 
movou podporou. 


Konštrukcia displeja 
a prevodníka TV úrovní 

Displej bol realizovaný ako súčasť 
amatérského počítača TOM 84 na uni- 
verzálnej doske plošného spoja 
vefkého európskeho formátu o rozme- 
roch 235 x 180 mm. Spojový obrazec 
tejto došky bol uverejnený v ročenke 
AR’87 — MIKROELEKTRONIKA (typ 
V 215 ME). Osadenie tejto došky inte- 
grovanými obvodmi a ďaišími súčiast- 



ZAT 30 .... zobrazuje sa 30 riadkov 
Z AT 32 ... . zobrazuje sa 32 riadkov 


Obr. 4. Doplňkový obvod, ktorý zabez- 
pečuje predlženie zatemnenia tak, že je 
zatemněný aj 30. a 31. riadok 


kami je uvedené na obr. 5. Sú použité 
konektory typu 6AF89654 (31 kolíkové, 
pozlátené), pričom konektory K1 a K2 
sú pre systémovú zbernicu mikropo- 
čítača, na K4 sú vyvedené výstupy 
VIDEO a SYNC a K3 je zatiar nevyužitý. 
Na tento konektor je možné vyviest 
výstupy z generátora znakov (obvod 
C4) a potom nahradit památ EPROM 
připojením na simulátor EPROM, čo 
dovolí dynamicky měnit súbor zobra- 
zovaných znakov pomocou programu. 
Póvodne sa na doske rátalo s památou 
2 x 1k, čo vystačí na formát 32 x 32 
znakov. Keď som realizoval úpravu na 
formát 64 x 32 znakov, nezostalo mi už 
iné riešenie než umiestniť ďalšie pa- 
máte na ,,poschodie“ opatrným spája- 
ním dvojíc obvodov s medzerou asi 
2 mm medzi ich púzdrami, aby sa 
aspoň trochu zab ezpe čilo ich chlade- 
nie. Iba signály CS nie je možné 
privádzať ku dvom púzdram paralelné, 
ale je potřebné na hornom z ich opatrné 
odhnút nožičku a C5 připojit drótikom. 
Takto vytvořená dvojica je zasunutá 
v pátici, vyrobenej z dostupných 16 
vývodových pátíc rozřezáním a zlepe- 
ním potřebného počtu kontaktov. Toto 
netradičné riešenie som si mohol dovo- 
lit kvóli tomu, že v počítači je umiestne- 
ný malý ventilátor, ktorý sa stará aspoň 
čiastočne o chladenie systému. Displej 
má v tejto podobě už „odjazdených" 
niekofko desiatok hodin a zatiar sa 
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neobjavili žiadne problémy s památami 
RAM. Trošku problémov robí pática 
pre památ EPROM, kde sa občas 
objavujú bodové poruchy zobrazovania 
znakov (nadbytečné biele bodky 
v znaku), ktoré sú spósobené nedoko- 
nalým kontaktem památe EPROM 
v pátici a zmiznu po ich přečištění. 

Obvody 05, F3, F4, F5, F7 sú umie- 
stnené mimo hlavné spojové perte- 
Potřebné plóšky pre umiestnenie tých- 
to obvodov sa získali úpravou pomoc- 
ných plošiek medzi konektorami (pre 
05 a F5), připadne plošiek, na ktoré sa 
pripájajú samotné konektory (pre 
ostatné doplněné obvody). 

Obvod prevodníka signálov VIDEO 
a SYNC na úplný TV signál je realizova- 
ný na malej doštičke jednostranného 
plošného spoja. Přesný obrazec spojo- 
vej došky neuvádzam, nakofko by bolo 
vhodné urobit jeho úpravu nahraaením 
pevných rezistorov R x3 trimrami, čo 
umožní presnejšie nastavovat jasové 
úrovně pre jednotlivé stupně jasu. 
Kedže sa jedná o poměrně jednoduché 
zapojenie, takýto návrh zvládne každý. 

Napriek tomu, že sa jedná o poměr- 
ně zložité zapojenie, pri jeho oživovaní 
vystačíme s logickou sondou a oscilo- 
skopom, pomocou kterého nastavíme 
oscilátor na požadovaných 12 MHz 
a postupné kontrolujeme jednotlivé 
priebehy na výstupoch primárnej 
a sekundárnej časovej základné. Rov- 
nako skontrolujeme a nastavíme poža- 
dovaná dížku pre impulzy HSYNC 
a VSYNC. Pokiar nemáme generátor 
znakov v památi EPROM, možno funk- 
ciu displeja skúšat tak, že jednotlivé 
výstupy v pátici pre EPROM připojíme 
postupné na zem krátkým drótikom, 
pričom sa nám majú vytvárat na obra- 
zovke čierno-biele zvislé pásiky uspo- 
riadané pódia toho, ktoré výstupy 
máme uzemněné. Památe RAM osa- 
dzujeme až po dokonalom preskúšaní 
funkcie dekodéra adries, oddefovača 
datovej zbernice a prepínača adresovej 
zbernice. Pri oživovaní má displej voči 
iným obvodom obrovskú výhodu v tom, 
že sa nám činnost displeja vermi 
názorné prejavuje na obrazovke, čo 
vermi pomáhá pri hradaní případných 
závad. Pri precíznej práci pri zapájaní 
došky mdže táto pracovat takmer na 
prvé zapnutie. 

Programová obsluha displeja 
DIS 84 

Napriek tomu, že tento displej je 
zložitejší než napr. AND-1, jeho progra- 
movanie sa nekomplikuje, naopak 
v niektorých ohfadoch sa stává jedno- 
duchším. 

Prvou programátorskou úlohou pri 
oživovaní tohoto displeja je naprogra- 
movanie generátora znakov, ktorý je 
v památi EPROM typu 2716. Táto 
památ nám pri rastri 8x8 bodov na 
jeden znak dovofuje vytvořit až 256 
znakov. Přitom je využitá do posled- 
ného bitu. Prvých 128 znakov s D7 
= 1 odpovedá súboru ASCII znakov. 
Namiesto riadiacich nezobraziterných 
kódov možno zadefinovat rdzne semi- 
grafické symboly. 

Spdsob naprogramovania znaku je 
zřejmý z příkladu uvedeného na obr. 6 
pre znak E. V displeji 8080 MC-DI bol 
použitý rovnaký spdsob kódovania 
znakov v generátore znakov s EPROM 
typu 2708 až na inú polohu znaku 
5 x 7 v rastri 8 x 8. Je preto možné 
použit tabufku znakov vytvorenú pre 
tento displej aj pre displej DIS-84. 


ADRESA 
228H 
229H 
22 A H 
22BH 
22CH 
22DH 
22EH 
22FH 



KÓDY 

7CH 

40 H 

40H 

70H 

40H 

40H 

7CH 

00H 


Tabuřka č. 1. Význam bitov příznako- 
vého bajtu 

D0 — Blikanie 
Dl — Inverzia 
D2 — Dvojitá šířka znaku 
D3 — Blokovanie zobrazenia 
(programové zatemnenie) 

D4 — Jas A (Farba R) 

D5 — Jas B (Farba G) 

D6 — las C (Farba B) 

D7 — Prepínanie súboru znakov v EPROM 2732 


Obr. 6. Příklad kódovania znaku 
v generátore znakov 

Druhů sadu znakov s D7 = 1 si móže 
navrhnúť každý sám pódia svojich 
požiadaviek. Možno sem umiestnit na- 
příklad celú grécku abecedu a rdzne 
symboly používané vo vědeckotechnic- 
kých textech, ale tiež rdzne grafické 
obrazce, ktoré sa dajú využívat na 
vytváranie obrazov a na hry. Kto má 
tlačiareň, ten sa bude snažit prispdso- 
bit tieto znaky tomu, čo vie jeho 
tlačiareň. 

Pre displej DIS-84 však mdžeme 
vytvořit tiež generátor znakov s 512 
symbolmi pri použití památe typu 2372, 
pričom adresový vodič A11 tejto pa- 
máte je napojený na bit D7 příznako- 
vého bajtu (viď obr. 1.). To nám 
umožňuje programovým nastavováním 
tohoto bitu ovládat vorbu dvoch súbo- 
rov po 256 znakov. V súbore riadiacich 
kódov ASCII je dvojica SO, SI, ktorú 
možno použit na takéto prepínanie. 

Z vyššieuvedeného vyplývá, že celý 
znakový bajt sa využívá na vorbu 
znaku. Mód zobrazenia znaku je 
ovládaný příznakovým bajtom. V ta- 
buFke č. 1 je uvedené priradenie 
módov zobrazenia jednotlivým bitom 
příznakového bajtu, v tabuFke č. 2 sú 
zas uvedené kódy pre všetky možné 
kombinácie módov zobrazenia. 

V obvyklom alfanumerickom režime 
sa pri nulovaní displeja musí zabezpe- 
čit zapísanie celej obrazovej památe 
príznakov zvoleným kódom módu zo- 
brazenia, například 00H pre 64 znakov 
na riadok v normálnom zobrazení, 04H 
pre 32 znakov na riadok v normálnom 
zobrazení. Realizácia kurzora je vermi 
jednoduchá a spočívá v zápise kódu 
pre inverzný a blikajúci znak do pří- 
slušného miesta památe príznakov. 

Programová obsluha rolovania obra- 
zu je zřejmá z toho, čo už bolo uvedené 
v popise zapojenia. 

Pre zabezpečenie činnosti displeja 
v bežnom alfanumerickom režime už 
mám vypracovaný program, ktorý vzni- 
kol úpravou programového modulu 
OUTDIS napísaného pre displej AND-1. 
Nebol však zatiar preskúšaný v rámci 
celého monitora mikropočítača 
TOM-84, na ktorom ešte stále pracu- 
jem, preto jeho výpis zatiar nepripájam. 

Semigrafické možnosti displeja sú 
také bohaté, že začína byt problémom 
ich všetky plně využívat. Nakofko však 
je výběr znakov a módov zobrazenia 
realizovaný nastavováním jednotlivých 
bitov v znakovom a príznakovom bájte, 
je ich ovládanie poměrně jednoduché 
a dá sa realizovat ako nastavovanie 
a nulovanie programových masiek pre 
obidva bajty. 

Úplné na závěr uvádzam ešte jeden 
námět, určený pre majiterov farebných 
televízorov. Bity D4 — D6 příznakového 
bajtu sa využívajú na ovládanie jasu 
zobrazenia znaku. Je však možné změ- 
nit zapojenie tak, že sa využijú na 
ovládanie farby. Potrebnú úpravu zapo- 
jenia neuvádzam, pretože som sa touto 
otázkou zatiar nezaoberal. 


Tabuřka č. 2. Kódy pre programova- 
nie módov činnosti displeja 

X0H 64 znakov na riadok, normálně zobrazenie 
XI H 64 znakov na riadok, blikajúci znak 
X2H 64 znakov na riadok, inverzné zobrazenie 
(biele pozadie) 

X3H 64 znakov na riadok, inverzný a blikajúci 
znak 

X4H 32 znakov na riadok, normálně zobrazenie 
X5H 32 znakov na riadok, blikajúci znak 
X8H 32 znakov na riadok, inverzné zobrazenie 
X7H 32 znakov na riadok, inverzný a blikajúci 
znak 

X8H až XFH — zatemnenie zobrazenia 
0XH maximálny jas znaku 


7XH minimálny jas znaku 
8XH až FXH — navolená druhá sada 256 znakov 
v EPROM 2732 

Výsledný kód příznakového bajtu sa ziskava 
lineárnou kombínáciou uvedených možností (X je 
Tubovorná hodnota 0 až F). 


Tabuřka č. 3. Zapojenie konektorov 


K1, K2, K4 




Kontakt 

K1 

K2 

K4 

1 

zem 

zem 

zem 

2 

+5 V 

+5 V 

+5 V 

3 

INT 3 

zem 

— 

4 

INT 2 

— 5 V 

— 

5 

INT 1 

zem 

— 

6 

A15 

+ 12 V 

— 

7 

A14 

zem 

VIDEO 1 

8 

AI 3 

+ 15 V 

VIDEO 2 

9 

AI 2 

-15. V 

V1DEQ-3 

10 

A11 

PIP 

VIDEO 4 

11 

A10 

CSO (KBD) 

VIDEO 5 

12 

A9 

CS1 (KBD) 

VIDEO 6 

13 

A8 

IOW 

VIDEO 7 

14 

A7 

IOR 

VIDEO 8 

15 

A6 

MW 

SYNC 

16 

A5 

MR 

— 

17 

A4 

INTA 

— 

18 

A3 

Ml 

— 

19 

A2 

ABŇ 

— 

20 

AI 

HLĎA 

— 

21 

A0 

DEN 

— 

22 

D7 

STSTB 

— 

23 

D6 

HOLD 



24 

D5 

ÍŇTĚ 



25 

D4 

RES 

— 

26 

D3 

ose 

— 

27 

D2 

RTL 

— 

28 

Dl 

RDY 

— 

29 

DO 

4>2TTL 

— 

30 

+5 V 

+5 V 

+5 V 

31 

zem 

zem 

zem 
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Osobné počítače ATARI 800 XL a ATAR1 130 XE sú vybavené sériovým interfejsom, na ktorý je možné pripojiť 
tlačiarne typu ATARI, pružný disk a i né přídavné zariadenia. Problém pripojenia tlačiarne s interfejsom 
CENTRONICS popr. IRPR (SMEP) ku ATARI je v popředí záujmu viacerých použivatePov týchto osobných 
počítačov. 


Najčastejším riešením, aj pri iných 
typoch počítačov, je využitie vorného 
tzv. “USER PORT“ a snaha riadif 
žiadaný typ interfejsu vlastným ovláda- 
cím programom. Pokiaf sa podaří 
prepísať směrník v operačnom sy- 
stéme ukazujúci na riadiaci program 
ttačiame, je možné používat systémové 
příkazy LPRINT, OPEN, PRINT#, LIST 
"P:“ atď. Takéto riešenie předpokládá 
detailné informácie o operačnom sy- 
stéme a je podmienené zavedením 
programu, ktorý zmodifikuje operačný 
systém. Problém nastane, ak si apli- 
kačně programové vybaven ie samo 
nastavuje směrníky riadiacich progra- 
mov — logické priradenie fyzických 
přídavných zariadení — alebo “tvrdo“ 
volá systémové ovládače. 

Technickým riešením problému je 
riešenie technicko programového vy- 
bavenia — jednoduchého adaptéru, 
ktorý na jednej straně emuluje interfejs 
ATARI a na straně druhej riadi interfejs 
pripájanej tlačiarne. Takto rieši pro- 
blém napr. firma GE pre svoje tlačiarne 
kompatibilně s ATARI a COMMODORE. 

Pri použití súčasnej mikropočítačo- 
vej súčiastkovej základné ide o jedno- 
duchý emulačný mikropočítač zložený 
z niekorkých obvodov a napájaný pria- 
mo z pripájanej tlačiarne. 

Predmetom tohto příspěvku je popis 
ATARI intefejsu, tak ako bol získaný 
pokusným meraním, návrh technic- 
kého a programového vybavenia emu- 
lačného mikropočítača postaveného na 
u nás najdostupnejšej súčiastkovej zá- 
kladní mikroprocesora MHB 8080 
s vlastným zdrojom. Popis interfejsu 
ATARI pre pripojenie tlačiarne je po- 
třebné chápat ako súhrn informácií, 
ktoré sa podařilo získat bez dokumen- 
tácie, len meraním pomocou oscilosko- 
pu, logického analyzátoru a dedukcie, 
čo by asi bolo logické. Preto tento 
popis nie je úplný, nerieši všetky možné 
chybové stavy, ale postačuje na spofa- 
hlivé emulovanie ATARI seriál interfej- 
su. Všetky číselné údaje vo výpise 
komunikačného protokolu sú v hexa- 
decimálnej sústave. 

POPIS 

“ATARI SERIÁL INTERFACE** 

ATARI seriál interfejs je z technic- 
kého hradiska asynchronný sériový 
přenos s jedným START a jedným 
STOP bitom bez použitia paritného 
bitu. Interfejs pracuje v logike TTL na 
krátku vzdialenost výsokou přenoso- 
vou rýchlostou 19200 baudov. 
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Obr. 2. Zapojenie interfejsov 


Stavové hlásenie tlačiarne je posiela- 
né po prfkaze OPEN a v případe, že je 
všetko v poriadku, má tvar: 

c) STATUS 80, 4E, 1F, 00, ED 

Do komunikácie vstupujú ešte dva 
špeciálne znaky, ktoré som nazval: 


T100 



d) ACK 41 — tlačiareň potvrdí příjem 

e) SBLK 43 — po tomto znaku tlačiareň 
vyšle svoje stavové hlásenie. 

— Datový blok 

Datový blok je Standardně dlhý 40 
znakov a je doplněný 41. znakom, čo je 
opát kontrolná suma. ATARI nevyšle 
nikdy datový blok inej dížky aj keby mal 
tento obsahovat čo len jeden platný 
znak. Dížka datového bloku je určená 
parametrom v operačhom systéme. 

V datovom bloku má výnimočné 
postavenie znak 9B, ktorý je možné 
chápat ako znak ukončujúci dáta 
— ÉOT resp. EOF — nakorko sa ním 
doplní datový blok do definovanej dížky 
(40) pri příkaze CLOSE. Příkaz CLOSE 
spósobí výstup běžného dátového blo- 
ku, ktorého obsahom je zbytok vyrov- 
návajúcej památe doplněný resp. 
ukončený znakom 9B. Riadiaci signál 
CMD je aktívny pri vysielaní riadiaceho 
příkazového bloku. 

Grafické znázorněme komuni- 
kačného protokolu 


CMD 



Obr. 3a. Interpretácia příkazu Open n, 
code, aux, "P“ 


CMD 



Obr. 3b. Vytíačenie naplnenej vyrov- 
návacej památe resp. interpretácia 
CLOSE 


Definovat přesné časové limity, 
znázorněné na obrázku ako At, sa mi 
nepodařilo, ale tento čas je zhora 
obmedzený tak, aby programové vyba- 
venie partnerského mikropočítača stih- 
lo bez problémov vyhodnotit prijatú 
informáciu a vyslat odpověď. Řádové 
sú to ms a operačný systém ATARI pri 
překročení niektorého z týchto časov 
hlási chybový oznam. 

Výnimočné dlhý je čas Tp, ktorý by 
bolo možné uviest v sekundách. Tento 
čas je využitý na vytíačenie přijatého 
dátového bloku a vyhovuje aj najpo- 
malším tlačiarňam bez vyrovnávacích 
památí. 

Pri pohrade na takto definovaný 
interfejs tento budi dojem jednoducho- 
sti a účelnosti. Je na škodu věci, že ho 
firma ATARI nepublikuje. Pri analýze 
jednotlivých znakov v riadiacich štruk- 
túrach je možné zistit ich význam. 
Z hradiska emulácie tlačiarne, ktorá 
nepozná iný stav ako READY 
a v každom inom pripade narušuje 
protokol, je význam týchto znakov 
nepodstatný až na jeden, a to je adresa. 
Z porovnán ia riadiacich štruktúr 
a z pokusných zapojení som určil, že je 
vhodné reagovat na prvý znak ako na 
adresu, čo je v případe tlačiarne 40H. 

Úplný obraz emulovaného ATARI 
interfejsu poskytuje výpis zdrojového 
textu ovládacieho programu zapísa- 
ného v assembleri 8080. 

POPIS TECHNICKÉHO 
VYBAVENIA ADAPTÉRA 
ATARI INTERFEJSU 

Technické vybavenie bolo navrhnuté 
na dostupnej súčiastkovej základní na 
báze mikroprocesora MHB 8080 a jeho 
podporných obvodov. Aby bolo možné 
jednoducho zaměnit centrálny proce- 
sor za iný, napr. Z80 resp. 18085, resp. 
využit univerzáinu procesorové část aj 
na riadenie podobného interfejsu pre 


COMMODORE C 64, je technické vyba- 
venie rozdělené na dve časti: 

a) Centrálny procesor 

b) Interfejs tlačiarne a sériový interfejs 
ATARI 

Použitie památí EPROM 2708 a RWM 
2114 bolo vynútené ich relativné naj- 
lepšou dostupnosfou. Daleko ekono- 
mickejšie je možné postavit riadiaci 
procesor na báze 18085, připadne MHB 
8748. Zapojenie využívá pre vstupno 
výstupné operácie adresy z pamáfo- 
vého priestoru a adresný dekodér 
rozdefuje památ následovně: 



Pri adresách vyšších ako 4000H sa 
aktivujú tzv. “zrkadlové" adresné prie- 
story. Všetky riadiace signály, potřebné 
na ovládanie interfejsu sú vyvedené na 
30 kontaktový konektor FRB a plošný 
spoj je riešený tak, aby sa signály na 
oboch plošných spojoch dostali na 
odpovedajúce si kontakty, čo ufahčuje 
ich spojen ie. 

Doska interfejsu obsahuje progra- 
movatelný čítač 8253, aby bolo možné 
jednoducho vydělit frekvenciu 
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Obr. 4. Obrazce plošných spojov došky centrálneho procesora X601 


19 200x16 pre USART 8251 z O^TTL. 
Použitie tohto obvodu je možné oceniť. 
ak je potřebné připojit ku adaptéru 
sériovú tlačiareň a riadiaci program 
musí přepínat prenosovú rýchiosf 
z 19 200 na 200, resp. 300 baudov. Pre 
účely napojenia sériových tlačiarní je 
technické vybavenie interfejsu doplně- 
né jednoduchým prepínačom na hrad- 
lách 7400 s využitím programovo 
ovládaných výstupov 8251 RTS a CTS. 
Uvedený riadiaci program nerieši pri- 
pojenie sériovej tlačiarne, a v případe 
potřeby ho je možné modifikovat. 

Ovládanie paralelných tlačiarní s in- 
terfejsom IRPR/CENTRONICS apod. 
riadiaci program zabezpečuje pro- 
stredníctvom programovateFného obvo- 
du MHB8255. Technické riešenie 
poskytuje 8 dátových tfodičov, 4 riadia- 
ce a 4 stavové vodiče. Ostává ešte 
nepoužitý port B. 

Riadiaci program, uvedený v prílohe, 
je písaný pre interfejs IRPR, preto sú 
signály označené názv ami tohto inter- 
fejsu. Signál DAT/ĎAÍ umožňuje jed- 
noduchým nastavením potenciálu 
log. 0 resp. log. 1 riadit polaritu vý- 
stupných dát. Váčšina tlačiarní umož- 
ňuje nastavit polaritu prepínačom či 
prepojkou, ale pokiar tomu tak nie je, 
napr. CONSUL 21 1 1 , je potřebné měnit 
riadiaci program, čo spósobí problémy 
ak je už adaptér vyrobený a oživený pre 
iný typ tlačiarne. Podobné v případe, že 
vznikne problém polarity riadiaceho 
signálu, sú na plošnom spoji interfejsu 
dve rezervné pozície pre FubovoFný 14 
resp. 16 vývodový integrovaný obvod 
so štandardným napájaním, čo by málo 
stačit v případe jednoduchých úprav 
v zapojení interfejsu. 

Podrobnější popis technického vyba- 
venia nie je potřebný, nakořko ide 
o známe a často publikované zapojenie 
štandardných súčiastok. 

POPIS RIADIACEHO 
PROGRAMU 

Riadiaci program je možné logicky 
rozdělit na dve časti podra typu použi- 
tej tlačiarne: 

a) technicky nezávislá, 

b) technicky závislá. 

Nezávislú část riadiaceho programu 
tvoří inicializácia programovaterných 
obvodov a emulovanie ATARI interfejsu 
pomocou MHB8251. 

Pódia typu použitého interfejsu je 
potřebné modifikovat podprogram 
TLCZNK — tlač jeden znak na tlačia- 
reň. Tento riadiaci program vyhovuje 
váčšine tlačiarní dostupných pre užíva- 
teFov ATARI u nás. V případe potřeby je 
v památovom priestore EPROM dosta- 
tok vorného miesta, aby bolo možné 
programovými prostriedkami riadit aj 
iný typ zložitejšfch interfejsov. 


Riadiaci program pre atari interface 


; 

Kas - 

•87 


; 

pr iradenie 


CWTM 

EQU 

1803H 

adr.cw 8253 

TIMO 

EQU 

1800H 

; adr.pre TIMO 

CUSART 

EQU 

1001H 

; CW 8251 

DUSART 

EQU 

1000H 

; dat. reg. 8251 

CWPIO 

EQU 

2Q03H 

; CW 8255 

PA 

EQU 

2000H 

; adr . port A 
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PB 

EQU 

2001H ; 

adr . port 

B 

PC 

EQU 

2002H ; 

adr. port 

C 

PCI 

EQU 

2003H ; 

bit . oper . 

PC 


. phase 

0 




LXI 

SP.0B00H; 

zásobník 



inicializacia obvodov 



8253 

MVI A.36H ; TIMO/MOD 3 


STA 

CWTM 


LXI 

H.7 

; 19200x16 hz 

MOV 

A.L 


STA 

TIMO 


MOV 

A.H 


STA 

TIMO 

; CLK delene 


8251 


MVI 

A.4EH 

; 8 b./l stop 
no par. 

STA 

CUSART 


MVI 

A, 5 

; RxE / TxE 

STA 

CUSART 




READY : 


CALL 

WCMD 

; cakaj na CMD 

MVI 

B. 5 


LXI 

H, CMDBL 

; 5 r i ad. znakov 

CALL 

DATA 

; preber data 

CALL 

WNCMD 

; koniec cmd ? 

LDA 

CMDBL 


CPI 

40H 

; adr . t laciarne 

JNZ 

START 

; ina adresa 

CALL 

ACK 

; moja adresa 
: potvrdím 

LDA 

CMDBL +1 

: operacia 

CPI 

53H 

; open ? 

JNZ 

DATBL 

; nie tak data 

MVI 

B, 6 

; ak open 
vyšlí status 

LXI 

H.ODP 

; z tab.odpoved 

MOV 

C.M 


CALL 

VZNK 

: znak do atari 

INX 

H 


DCR 

B 


JNZ 

LC 


JMP 

START ; 

; ukončeny open 


prijem dat. bloku v dlzke 40 znakov 
+ kontrolna suma do vyrovn. pamate 


DATBL : 


LXI 

H.BUFF 


MVI 

B ,41 

: dlzka bloku 

CALL 

DATA 


CALL 

ACK' 

; potvrdeníe 
prevzatia 


vytlač přijaté data na tlacíaren 


LXI 

MVI 

CALL 

CALL 

H.BUFF 

B.40 

TLC 

ACK 

; vytlačí data 
: potvrdí sa 
ukončen i e oper 

JMP 

START 


podprogrami 


čita j 

jeden znak 

z atari 


znak ? 


ic rdy ? 








DATA: 


CALL 

MOV 

INX 

DCR 

RZ 

JMP 


CZNK 

M, A 

H 

B 


DATA 

vyšli ACK do atari 


MVI 

CALL 

RET 


C.41H 

VZNK 


Tato cast programu je premenl íva podlá 
typu pripojenej tlaciarne. Změnou 
podprogramu TLC alebo TLCZN je mozne 
měnit interface. 


TLC: 


TLI: 
TL2 : 


J2: 


RET 

tabulky 


ODP: 

DB 

43H . 80H . 4EH , 1 FH . 0 . OEDH 


.dephase 

CMDBL: 

org 

800h : RWM priestor. 


DS 

5 přikaž. blok 

BUFF: 

DS 

41 ; prijatie dat 


end 

ZÁVĚR 

Zapojenie, riadiaci program, ako aj 
došky plošných spojov, boli použité pre 
stavbu funkčného vzoru, ktorého spo- 
rahlivá činnosť bola ověřovaná na 
zapojení ATARI 130XE a Dl 00. Tlačovo 
orientované programy ako SPEED- 
SCRIPT používali tlačiareň Dl 00 ako 
ATARI tlačiareň. 


******************************** 

vyšli data na tlačiareň 

HL-ADR. 

vyr .pamate 


počet znakov 


MOV 

C.M 


MOV 

A.C 


CPI 

9BH : 

ukoncovaci 

JZ 

ETLC ; 

znak dat 
komec dat 

CALL 

TLCZN : 

tlač znak 

INX 

H 


DCR 

B 


JNZ 

TLC 


RET 



MVI 

C.OAH ; 

kod pre LF 

CALL 

TLCZN 


MVI 

C.ODH 

kod pre CR r 

CALL 

TLCZN 

I 

RET 

tlač jeden znak 


C-znak 1 

/ IRPR 

interface 

/ 

LDA 

PC 


ANI 

1 

AC-0 / rdy ? 

JNZ 

TLCZN 


LDA 

PC 

prepojka 

ANI 

2 

polarity dat 
data alebo 

JNZ 

TLI 

negované data 

MOV 

A.C 


CMA 


mverzia dat 

JMP 

TL2 


MOV 

A.C 


STA 

PA 

data na interf 

MVI 

A.OFH 

PC7=-strob dat 

STA 

PCI 

SC / 

LDA 

PC 


ANI 

1 

AC-1 

JZ 

JI 

potvrd.od tlač. 
cakaj na AC 

MVI 

A.OEH 

zhod SC strob 

STA 

PCI 


LDA 

PC 

cakaj na AC-0 

ANI 

1 

interface rdy 

JNZ 

J2 





Obr. 6. Rozloženie súčiastok na doškách procesora a interfajsov X601 a X602 
(na doske procesora nutno doplnit rezistor R3z+5Vna vývod č. 6. IO 3205) 


Zoznam súčiastok 


a) Integrované obvody 


MH7400 

1 ks 

c) Kondenzátory 




MH7405 

2 ks 


MHB8080 

1 ks 

KR580VI53 (8253) 

1 ks ZSSR 

10 pF keramický 

1 ks 

MH8228 

1 ks 


64 pF keramický 

9 ks (bypass) 

MH8224 

1 ks 

b) Rezistory 


20 pF elektrolyt. 

1 ks 

MH3205 

1 ks 

1 kn 

2 ks 


MHB2114 

2 ks 

15 kn 

1 ks 

djiné 


MHB2708 

1 ks 

3,2 kO 

1 ks 


MHB8251 

1 ks 

220 n 

4 ks 

dioda KA201 

1 ks 

MHB8255 

1 ks 

3300 

4 ks 

Kryštál 18,432 MHz 

1 ks 
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Základní technické údaje: 

Měření odporu: 4 rozsahy, od 1 íi 
do 30 MQ 

Měření kapacity: 5 rozsahů, od 10 pF 
do 80 jiF 

Měření tepíoty: 1 rozsah, od 0°C do 
100° C (v kapalině). 

Měření odporu 

Pro velikost převodu převodníku 
D1GI 2 platí podle II] vztah: 

P = 65 535 — 2048 . K . R (1) 


kde K = k.C (k=1 ,16 bylo zjištěno expe- 
rimentálně pro dané zapojení 
MK0 1 podle obr. 2), R je odpor v 
kfi a C je kapacita v pF vnějšího časo- 
'vacího obvodu. Neznámý odpor rezi- 
storu R x v kQ se vypočítá ze vztahu (2), 
kde Cd je kapacita kondenzátoru (včet- 


ně vlastní kapacity přípravku) volená 
přepínačem rozsahů. Sériový rezistor 
R3 = 0,33 kil je na začátku měření kali- 
brován (proměnná R9). 

R* - (65 535 — P)/(2375,68 . C n )-0.33 

(2) 

Převod P je snímán 10x a do vzorce 
se dosazuje jeho průměrná hodnota. V 
tab. 1 jsou informativní údaje pro toto 
měření — rozsah 6 až 9. 

Méření kapacity 

Pro hledanou kapacitu kondenzátoru 
v mF odvodíme ze vzorce (1), že 

C K = (65 535 — P)/(2375,68 . R„) (3) 

kde R„ je celkový odpor rezistoru (včet- 
ně sériového odporu R3, který je i zde 
kalibrován). Vlastní kapacita přípravku 
je přibližně 200 pF. informativní údaje 
pro toto měření jsou v tab. 1, rozsah 1 


až 5. Teoreticky možnou rozlišovací 
schopnost udává poslední sloupec ta- 
bulky. 


Tab. 1. Měření kapacity a odporu 


rozsah 


EfiiÉflÉl 

PF/|. 

převodu 


470 

0,01 až 5.9 

1 

n 

100 

5.9 až 275 

KM 

MM 

10 

275 až 2670 

K3H 

MM 

1 

2670 až 21.10* 


5 

0,1 

21.10* až 84.10* 



C4nF] 

měřený odpor 
R.ÍOJ 

ktyj. 

převodu 

6 

10 3 

1 až 27 

0.4 


100 

27 až 276 

42 


10 

276 až 2760 

42.0 


1 

2760 až 27600 
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Obr. 1. Schéma přípravku na měření fí, C, 9 


Měření teploty 

Pro měření teploty byl jako snímač 
zvolen na trhu dostupný perličkový ter- 
mistor 13NR15 (odpor R25 = 10 Cl až 30 
kfi materiálová konstanta B = 2800 až 
3600 K, barevné označení — černá a 
modrá tečka, výkonová citlivost neu- 
dána). Pro převodník DIGI 2 by byl 
vhodnější termistor 14NR15 s větším 
odporem R25 (30 Q až 100 kn)[2j. Závi- 
slost odporu termistoru na teplotě 
d je dána vztahem 

R = R 25 . exp B. (1/298-1/(273 + 9)) 

(4)' 

Měříme tedy opět odpor. Z obr. 1 
je patrné připojení termistoru k pří- 
pravku. V sérii s termistorem je rezistor 
R6, kterým zmenšujeme jeho výkono- 
vou ztrátu a zároveň optimalizujeme ve- 
likost převodu P v součinnosti s časo- 
vacím kondenzátorem Cl převodníku 
DIGI 2. Ten je připojen sekcí přepínače 
rozsahů PMc v poloze 11. Výkonová 
ztráta je menší než 3 mW, tj. méně než 
10% z maximálního přípustného zatíže- 
ní termistoru této řady. Pro měření tep- 
loty v kapalině to postačuje pro dosa- 
žení termoelektrického režimu. Neli- 
neární závislost odporu termistorů na 
teplotě je aproximována logaritmickou 
regresí: 

0 = a + b . In P v (5), 


kde a, b jsou součinitele získané re- 
gresí. Pracovní rozsah 0 až 100°C byl 
rozdělen do 6-ti podrozsahů tak, aby 
korelační součinitel byl přibližně roven 
jedné (0,999). 

Konstrukce přípravku 

Schéma zapojení je na obr. 1. Vzhled 
přípravku (i s převodníkem DIGI 2) je 
na str. 47. Základem je krabička vyro- 
bená z oboustranného kuprextitu 
tl. 1 mm o rozměrech 70 x 50 x 32 mm, 
spojená pájením ve styčných plochách. 
Dvanáctipolohový třípatrový přepínač 
(typ APM) je přišroubován v levé polo- 
vině krabičky a drží i krycí organické 
sklo tl. 2 mm, chránící popisový štítek. 


Většina součátek je připájena přímo 
na kontakty přepínače nebo konektorů. 
Na přední stěně je zásuvka konektoru 
DIN 5/180. Je připájena po obvodu 
příruby ke stěně krabičky. Na zadní 
stěně je přilepena konektorová zásuv- 
ka WK46515. Ve volném prostoru vpra- 
vo nahoře je připevněn mikrospínač 
B593, který se používá ke kalibraci 
sériového rezistoru R6 při měření teplo- 
ty. 

Pro měření odporu a kapacity se 
používá držák měřených součástek, 
který je k přípravku připojen třížilovým 
plochým ohebným vodičem, zakonče- 
ným zástrčkou konektoru DIN. Měřené 
součástky se upínají do upravených 
krokosvorek (rozteč 20 mm). Vodiče 
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Obr. 2. Schéma zapojení převodníku DIGI2 























jsou s krokosvorkami spojeny pájením. 
Horní krycí destička je též z organic- 
kého skla o tl. 5 mm. 

Před montáží je třeba součástky 
přesně změřit (R n , C n ). Usnadní se tím 
práce při kalibraci přípravku. Rezistor 
R7 nahrazuje chybějící potenciometr 
P2 (obr. 2 ). Rezistor R1 je drátová 
spojka. Spojení S6 a S7 na konektoru 
WK nahrazuje chybějící mikrospínač 
z hledáčku digitizéru. Před připojením 
přípravku k DIG1 2 zkontrolujeme zapo- 
jení konektoru WK. Musí souhlasit 
s protikusem. Jeho části nejsou zajiš- 
těny proti pootočení. Protože otočený 
konektor nebo nepřipojený přípravek 
nemohou způsobit havárii ani progra- 
mu ani převodníku, postačí si pamato- 
vat, že nápisy TESLA na konektoru 
patří např. k sobě. 

Programové vybaveni 

Program je dostatečně vybaven ko- 
mentářem. Má dvě části: BASIC 
a strojový kód, ve kterém je podpro- 
gram pro obsluhu programovatelného 
čítače převodníku DIGI 2. Program je 
dialogem mezi uživatelem a počítačem. 
Při správném plnění pokynů, pokud 
ovšem není přepínač rozsahů v jiné 
poloze než je zadáno, dojde ke správ- 
nému měření. Po přečtení krátkého 
komentáře se objeví MENU, umožňující 
další volbu. Při měření odporu a kapa- 
city je nutné po kalibraci zadat rozsah. 
Při jeho chybném zadání, chybné kali- 
braci nebo při stisku M, skočí běh 
programu opět na MENU. Při měření 
teploty se rozsah volí automaticky. I zde 
se provádí kalibrace, po které je možné 
zadat korekci teploty, aby bylo dosaže- 
no souhlasu s teploměrem. 

— * Při oživování přípravku je třeba 
změnit hodnoty C„ od č. ř. 1428 a R n od 
č. ř. 1528 podle výsledků kalibrace. 
Podobně je třeba upravit regresní 
funkce (podprogram č. ř. 8000) a 
hranice podrozsahů v podmínkách od 
č. ř. 1080. 

Přetečení obsahu programového 
čítače 8253 při měření odporu a kapa- 
city je hlídáno testem jeho výstupu 
OUT 0 (čítač Č0). Při vynulování jeho 
obsahu se zde objeví log. 1, která je 
zjištěna porovnáním s maskou 7FH. V 
případě shody pokračuje program vy- 
nulováním registrového páru HL a tato 
nulová hodnota se vrací do BASICu. To 
je zaregistrováno v podprogramu „roz- 
sah" a na obrazovce se objeví pokyn 
„Zvol větší rozsah". Naopak, pokud je 

převod velký (čítač je v činnosti krátkou 
dobu a rozdíl 65 535 — P je malý), je 
hlášeno „Zvol menší rozsah", takže 
prakticky nelze měřit špatně. 

Kalibrace a oživení přípravku 

Jak již bylo dříve uvedeno, je pro 
urychlení seřízení přípravku vhodné 
přesně změřit R„ a C„. Odpor sériových 
rezistorů se zjišťuje programově při 
každém měření. Kalibrace rezistorů R3 
převodníku se provede zkratováním 
svorek R x . Jeho odpor se vypočítá ze 
vzorce (2) bez odečtení hodnoty 0,33 
kil (tj. přibližný odpor kalibrovaného 
rezistorů). Podobně se vyhledá i sku- 
tečný odpor kombinace R3 + R6 při 
měření teplot K doladění přípravku na 
všech rozsazích byly použity normály. 
Jejich hodnoty jsou voleny tak, že se 
měření překrývá na jednotlivých rozsa- 
zích. Tím je zajištěno i vzájemné porov- 
nání jednotlivých sousedních rozsahů. 


Výpis programu „Měření R, C, 0“ s DIGI2 


• CLS 

6 PRINT"HERICI PŘÍPRAVEK" V 

8 PRINT:GOSUB2600:REH LEGENDA 
10 GOSUB2900 : CLS : G0SUB 2630 
12 6OSUB2900:CLS:GOSUB2650 
14 GOSUB2900SCLS s GOSUB270® 

14 RA=26 : GOSUB3000 s G0SUB2 100 » REMF00TRH ; TEXT 
20 GOSUB2000 = REM Cekej 
180 DIMQ (20) 

182 DEFFNZ <X t O) = 1NT <X*10 “D-*- .5) /10"D 
194 REM************************* 

196 REN HENU 

198 REM************************* 

200 CLSsPRINTí.5,0"M E N U" 

210 PRINT610,0" 1— Heren i odporu" 

220 PRINT"2-Mereni kapacity' 

230 PRINT"3— Hereni teploty" 

240 PRINT'4-Konec programu" 

245 PRINT'5-Nahrani programu" 

250 GOSUB2050 s REH VOLBA 

300 ONVAL < V«> G0SUB1 400 ,1500, 1000 , 9999 , 49990 
310 GOTO200 

1000 REH*** 90*909******** ******* 

1002 REH HERENI TEPLOTY 

1004 REH************************ 

1006 CLS SPRINT "HERENI TEPLOTY" 

1008 PRINT'Pouzíty snímač - 13NR1S. 

1010 PRINT~Rozsah teploty - 0 AZ 100 st.C v kapalíne." 

1012 PRINT’K převodníku DIGI2 připoj pri-pravek na Mařeni teploty." 

1014 PRINTtPRINT*Nyni provedeme kalibraci převodu' 

1022 PRINT"Termistor zkratujeme mikrospi- cen, který podržíme a soucas 
1024 PRINT~ne stiskáme tlačítko. ' SGOSUB2000 " 

1024 PRINT&12,0SPC (255) SPC (255) 

1028 GOSUB7000SREH KALIBRACE 

1030 RA= 24 s G0SUB 3000 : GOSU B2 1 1 0 : 6OSUB2000 

1034 PRINT&12,0SPC <2551 {SPC <255) ; 

1034 RA=14:GOSUB3000:REM PODTRŽENI 
1038 RA=24:GOSUB3000:AP=0:T1=0 
1044 GOSUBS000 s REH HERENI 
1048 R1=HEX<FFFF>-Q-R:T=0 

1050 REH PRINTÍ.23,0"Rl="FNZ<Rl,0>a,23 f 10"P*a="FNZ«l,0>"R="FNZ<R t 0> 

1052 IFR1<0 0R R1 >65535-RTHENPRINT627,0"Mimo rozsah -> MENU " : GOSUB2000: GOTO200 
1070 IF A*= "H " THEN200 
1078 REH 0 az 14 

1080 IFR1 >37000 AND R1 <»59400THEN 8010 
1082 REH 14 az 30 

1084 IFR1) 18000 AND RK-37000THEN 8020 
1084 REH 30 az 40 

1088 IFR1 >11500 AND R1<=18000THEN8030 
1090 REH 40 az 50 

1092 IFR1 >7900 AND R1<=11 500THEN8040 
1094 REH 50 az 70 

1096 IFR 1)4000 AND R1 < =7900THEN 8050 
1098 REH 70 az 100 

1100 IFR1 >1532 ANO R1<=4000THEN 8060 

1186 GOSUB2200SREH TEXT1 

1187 PRINT«.12,0RO*;SPC<5> 

1188 PRlNT616,0'Merena teplota" SPRINT 
1190 PRINT"T="|TAB<9> "stupňů Celsia* 

1192 T=T+TlsT=FNZ<T,l> 

1194 PRINT620.2T 

1196 UAIT<20) :FRINT620,2SPC<7> 

1198 IF AP— 1 THEN1210 
1200 AP=l:PRINT&20,2T626,0f 

1202 INPUT"Korekce teploty" ; TI :PRINT626,21"st.Celsia" 

1210 IFINKEY*=*'THEN1044 

1212 GOTO200 s REH HENU 

1400 REM************************ 

1402 REH HERENI ODPORU 

1404 REM************************ 

1406 CLSSPRINT62 ,0"MERENI ODPORU" 

1408 PRINT"K převodníku DIGI2 připoj pri-pravek na mereni odporu a kapa -city 

1409 PRINT"Meri odpor v intervalu 1 Ohm - 30 MOhm" 

1410 PRINT"Po připojeni pokračuj stiskem tlačítka " 

1412 GOSUB2000 s G0SUB7 100! REM KALIBRACE R 6 C 

1414 PRINTÍ.10,0SPC <255 > ;SPC<255> {SPC<128> 

1416 RA=1356OSUB3000sRA=24!GOSUB3000sGOSlíB2100 = GOSUB2000 

1418 IFA*="4"ORA*='M"THEN200 

1420 RA=17sGOSUB3000:IFINKEY*='M"THEN200 

1422 PRINTí.l5,0;sINPUT*Zvol rozsah <6~9>"{B* 

1423 IFB*<"6" 0R B6 > "9" THEN200 

1424 GOSUB5000 s GOSUB6000 

1426 R1=HEX<FFFF) -QsREM PRINT623,0'Rl="Rl;«.23,14"Prevod = "O 

1428 IFB*="6"THENC=.84:D=2 

1430 IFB*="7'THENC=. 1:0=1 

1432 IFB»="8"THENC=.965E-2:D=1 

1434 IFB0="9"THENC=1.03E-3:D=0 

1436 REMIFB*="10"THENC=3E-3 

1438 G0SUB2 100 : GOSUB2200 

1450 Rl=Rl/2375.68/C-R9 

1452 PRINT619,0"Mereny odpor" 

1454 IF R1>=1 AND R1 < 1000THEN1480 

1456 IF RD1000THEN1472 

1458 Rl=FNZ <R1 ,4) *1000 

1460 IF R1<0 THENR1=0 

1464 GOSUB4000 : REH ohm 

1466 GQT01482 

1472 Rl=Rl/1000sRl=FNZ <R1 ,2) 

1474 GOSUB4100 sREH megaohm 
1476 G0TD1482 

1480 PRINTÍ.22, 0"R="622 , 10"kiloohmu" ; :R1=FNZ <R1 ,D) 

1482 PRINT 622 , 2R 1 ; 

1490 GOSUB2800sPRINT*.22,2SPC<30> ; 

1492 IFA*="M*THEN200 
1494 G0T01418 

1498 GOSUB2100 s GOSUB2300 s GOSUB2000 s PRINT 62 1 , 2SPC <30> ; SG0T01418 

1500 REM *********************** 

1502 REM HERENI KAPACITY 

1504 REM *********************** 

1505 REM HERENI KAPACITY 

1506 CLS:PRINTé,2,0"MERENI KAPACITY" 

1508 PRINT"K převodníku DIGI2 připoj pri-pravek na mereni odporu a kapa -city 

1509 PRINT"Heri kapacitu v intervalu 10pF - 80 mikrofarad" 

1510 PRINT*Po připojeni pokračuj stiskem tlačítka " 

1512 GOSUB2000SGOSUB7100 ■ REM KALIBRACE R 6 C 

1514 PRINT610,0SPC<255> ;SPC<255> ;SPC<128> 

1516 RA=1 3 t 6OSUB3000 : RA=24: GOSUB3000 : G0SUB2 100 


1518 G0SUB2®««:REM CEKEJ 
152* IFA*«'4'THEN200 
1522 RA=1?:GOSUB30®0 

1526 PRINT&15,#; tINPUT"Zvol rozsah <1~5>";C* 

1528 IFC8C "1* OR C«)'5'THEN200 
153* GOSUB5000SGOSUB6®*® 

1532 GOSUB2160:GOSUB220® 

1534 Rl=HEX(FFřF)-0 

1534 REM PVNT423,0"Rl="Rl}623,13*Prevod Q="0 

1538 IFC*='1'THENR=1026:O=2 

154# IFC*="2'THENR=103.99sD=2 

1542 IFC*»'3"THENR=10.1íD=l 

1544 IFC8«'4'THENR».96!D*0 

1544 IFC8*"5*THENR=0sD=® 

1548 Cl=Rl/2. 37548/ CR+R9) —.2 
155# PRINTÍ,19,0"Merena kapacita" 

1552 IFC1>=1 ANO Cl< 1000THEN1570 
1554 IFCD1000THEN1S64 
1556 C1=FNZCC1,4>»1000 
1558 GOSUB4200 
1568 O0TO1572 

1564 Cl«Cl/1000eCl«FNZCCl,2> 

1544 6OSUB4300 
1548 S0T01572 

1578 PRIMT«.22,0"C*'&22,U"nanofarad"5Cl*FNZCCl,D) 

1572 PRINT«.22,2C1 

1574 GOSUB2000»PRXNT622,2SPCC30> 

1574 IF I NKEY6*"M " THEN288 
1578 G0T01S26 

2848 REM************************ 

2882 REM CEKEJ 

2884 REM*** *************** ******* 

2818 A8«INKEY**IFA6*"THEN20Í0 
2815 WAXTC10) sRETURN 
2848 RETURN 

2858 RE M * * **** »«****»*»» »« »«»»»» 

2852 REM VOLBA 

2854 REM************************ 

2868 V8*INKEY6íIFV6«*'THEN2060 

2845 UAlT(18> tRETURN 

2188 REM************************ 

2182 REM TEXT 

2184 REM************************ 

2118 PRINTI.27,0'Pokracuj stisk** tlačítka' 

2115 RETURN 

2288 REM************************ 

2282 REM TEXT1 

2284 REM************************ 

2218 P*INT629.0"HENU - prošla, podrž H"» 

2215 RETURN 

2388 REM*«*w»»* *» »»»»« » »»» » »»»»» 

2382 REM TEXT2 

2384 REM************************ 

2318 PRIMTi.29,0"Mavrat na MENU - spatnou volbou rozsahu'} 

2315 RETURN 

2488 REM*********************** 

2482 REM TEXT 3 

2484 REM*****p******»********** 

2484 PRIMT&2S,4~Zvol v«tsi rozsah" :SOSUB2 100 »G0SUB2® 00 
2488 PRINT825,8SPC(28> 

2418 RETURN 

2588 rEh»*« »***»**»«»»»»»»»«*»» 

2582 REM TEXT 4 

2584 REM*********************** 

2584 PRINTI»25,8'Zvol aensi rozsah' <G0SUB2188:60SUB2888 
2588 PRINT425,8SPC<2®> 

2518 RETURN 

2488 REM*********************** 

2682 REM TEXT 5 

2484 REM************************ 

2606 PRINT"Leg«?nda" 

2408 PRINT"Tento prograa slouží pro obsluhu" 

261® PRINT"*er iciho přípravku k A/D převod-' 

2612 PRINT"niku 0161 2. Přípravek uaoznuje" 

2614 PRINT"»ereni odporu rezistoru, kapací-" 

2616 PRINT"ty kondenzatořu a teploty . 

2618 PRINT"Spojeni s prevodntke* je prove -' 

2628 PRINťdeno konektore* UK nápisy TESLA " 

2622 RETURN 

2638 PRINT"k sobe. Merena sbucastka se up-" 

2632 PRINT"ne do příslušných krokosvorek " 

2634 PRINT"Rx nebo Cx spojených konektore* " 

2636 PRINT'0IN 5/180. Upnuti součástky *usi " 

2638 PRINT"byt spolehl i ve. Pro *ereni teplo-' 

2640 PRINT"ty je sniaac připojen tez koněk-" 

2642 PRINT"tore* DIN 5/180. Následující ta~" 

2644 PRINT"bulka ukazuje funkce přepínače. " 

2646 RETURN 

2650 REM************************ 

2652 REM TABULKA 

2654 REM************************ 

2656 PRINT" PŘEPÍNAČ ROZSAHU" 

2658 PRINTÍ.2, 1CHRS < 15) "P" 

2660 M=2 5 6OSUB2800 

2662 PRINTťr2,31CHR* < 15) 566, 1CMR8 < 15) *S" 

2664 M=6 s GOSUB2800 

2666 PRINT66,31CHR*C15)"N"j624,lCHR*C15>"K"íM=24:GOSUB280® 

2668 PRINTÍ.24,31CHR*<15)"J" 

2670 S= 1 1 GOSUB2820 ! GOSUB2850 
2672 S=9 ! 6OSUB2820 í GOSUB2850 
2674 S=2®= GOSUB2820 1G0SUB285® 

2476 S«31 í GOSUB2820 s G0SUB2858 

2678 PRINT&4,2"Poloha"é.4, 12" Funkce" 63, 22'Rozsah "65,21 "od do" 

2680 PRINT48 ,2" 1 az 5"47,ll"*ereni"69,ll"kapacity" 

2482 PRINTí.8,21'10pF 80MF" 

2684 PRINT613,2"6 az 9"í.l2,ll“*ereni"614,ll"odporu" 

2686 PRINT613,21"10h« 3®MG";614,29"-"} 

2688 PRINT618,2" 11 *617, 1 l"*ereni "619,11'teploty" 

2698 PR INT4 18 , 2 1 *0— 100s t . C " 

2692 PRINT422, 2' 12 "622, 13"zea'622,23CHR* (15) ”00000" 

2698 RETURN 

2708 REM************************ 

2702 REM TEXT 6 

2704 REM************************ 


50 mikroelektronika 


2706 PRINT"Pri šeřeni daně veličiny je nut-" 

2708 PRINT"ne zvolit rozsah dle tabulky" 

2710 PRIŇT"a řídit se instrukce*!. 

2712 PRINT"Kdyz presto nedojde k aereni.po-" 

2714 PRINT"citac nereaguje na stisk tlačit-" 

2716 PRINT*ka, je chyba v připevněni sou-" 

2718 PRINT"castky nebo je součástka vadna." 

2728 PRINT"Pri aerem velkých hodnot soucas' 

2722 PRINT"tek je pri nevhodnea rozsahu do-" 

2724 PRINT"ba aereni delsi.Znente rozsah. 

2750 RETURN 

2800 REM************************ 

2802 REM LINKA vodorovné 
2804 REM************************ 

2808 F0RI =2TO30 S PR I NT6M , I CHR* C 1 5) " 0" s NEXT 
281® RETURN 

2820 REM************************ 

2822 REM LINKA svisle 1 

2824 REM************************ 

2828 F0RI=3T05sPRINT6I,SCHRÍ<15) "T " s NEXT 
283® RETURN 

2850 REM************************ 

2852 REM LINKA svisle 2 

2854 REM************************ 

2858 F0Rl=7T023spRINT6I,SCHR4(15>"T"íNEXT 
2868 RETURN 

2988 REM************************ 

2902 REM STRANKA 

2904 REM************************ 

2906 RA*26 s G8SUB300® s G0SUB2 1 00 : GQSUB200® : RETURN 
3080 REM************************ 

3002 REM P0DTRH 

3804 REM************************ 

3018 FORI»OTO30sPRINT4RA,ICHR*C15) "Q" :NEXT TRCTURN 
4088 REM»»********»»** ********* 

4082 REM TISK VYSLEĎKU-OUPOR 1 

4004 REM*********************** < 

4004 PRINT622,®"R='622,ll*oh«u"j 
4008 RETURN 

4108 REM*********************** 

4102 REM TISK VÝSLEDKU -ODPOR 2 
4184 REM*********************** 

4104 PRINT622,0"R S "622, 11'aegaohau' ; 

4108 RETURN 

4208 REM*********************** 

4202 REM TISK VYSLEDKU-KAPACITA1 
4204 RÉM*********************** 

4206 PRINT422,0"C="622,ll'pikofarad"5 
4208 RETURN 

4300 REM*********************** 

4302 REM TISK VYSLE0KU-KAPACITA2 
4304 REM««»»»»»* » »»»*»»»**»»»»» 

4306 PRINT622,0'C=»'622,ll*«ikrofarad*5 
4308 RETURN 

500# REM************ »»»»»*« »»*» 

5002 REM HEREN I 

5004 REH»» * » « »« * *«»»»»»»»»»»»*-* 

5005 REM HEREN I 

5006 FORI»0TO20 
5008 Q(I>«0 
5010 NEXTI 
5012 FDRI-0TO2® 

5014 O CD-UORDCHEX (40001,1) 

5016 NEXTI 
5050 O*# 

5055 FORI>1TO20 
5060 Q=Q+Q Cl) 

5062 REM PRINTQjOCI) 

5065 NEXTI 

5070 Q=»FNZ <0, 1) /20 

5080 RETURN 

6000 REM*********************** 

6005 REM ROZSAH 

6010 REM*********************** 

6015 F0RI-0T010 

4020 IFO Cl) «< 1000THEN6100 

6030 IFOCI)«>6S100THEN62®0 

4040 NEXTI 

6056 RETURN 

6108 REM*********************** 

6105 REM Haly rozsah 

4110 REH*»***»*****»»«********» 

6112 00 SUB 2 480 
6114 IFV6-"1'THEH1418 

*118 IFV*-'2'THEN1526 , 

4200 REM*********************** 

6205 REM Války rozsah 

6210 REH***»»*»*******»***»»*** 

4212 6OSUB2S00 

6214 IFV8-"1'THEM1418 

6218 IFV*-'2"THEN1526 

7008 REM*********************** 

7002 REM Kalibrace teploty 
7004 REM*********************** 

7020 8OSUB5000 
7022 R«=HEX CFFFF) ~Q 

7024 PRINT414,0"R*'R|614,13"Prevod 0='0 
7050 RETURN 

7100 REM*********************** 

7102 REM Kalibrace R 6 C 

7104 RA*=14 * GOSUB3000 

7106 PRINT"Kal ibrace aereni R 6 C 

7108 PRI NT "Zvol i*e rozsah 6" 

7110 PRI NT" Zkratuje** svorky R" 

7112 PRINT~Stiskne*e tlačítko a ti* je ka- librace skončena 

7114 RA»25 38OSUB3000 t GOSUB2000 

7130 BOSUBS000 

7132 Rl-HEX CFFFF) -0 

7134 R9»Rl/1995.37t2tR9«FNZCR9,3) 

7134 PRINT627,0"Odpor převodníku ÍT**R9'kilooha' » iMAIT C25) 
7138 RETURN 

8002 REM PP8M TEPLOTA ; 

8010 ROS* 'Rozsah 0 az 14 st.C' 

8012 T *219. 0097-19. 9311 17*L06CR1>+. 16 
8014 G0T011B6 

802# ROS* "Rozsah 14 az 30 st.C" 

B022 T-292. 53206- 26. 759259*L0GCR1> 

8024 BOTO 1184 


M3Í RQ*=" Rozsah 30 az 40 st.C" 

8032 ^251.96686-22.595167*1.06 <R1> 

8034 G0T01186 

8040 RO*="Rozsah 40 az 50 st.C" 

8042 T=282. 75638-25. 90703*LOG(R1> 

8044 G0TO1186 

8050 RO**'Rozsah 50 az 70 st.C" 

8052 T=310. 19176-28. 94891«L0G<R1> 

8054 G0T01186 

8060 ROS«"Rozsah 70 az 100 st.C" 

8042 T=330. 28362-31. 404993»LOG<R1) 

8064 G0T01186 
9999 END 

49990 REM*********************** 

49992 REH NAHRANÍ PROGRAMU 
49994 REM************* ********** 

49996 PRIMT624,9~Prosi«, zapni aagnetof on~626,0~a stiskni nejake tlacitko. " 

49998 IFIMKEY«=*"THEH49998 

49999 PRINT628,0~Nahrava« !" 

50000 CALtHEX (6000) 

50002 PRINT624,0"Prosi.M, vypni Magnetofon a po 

50004 PRINTH26, 0"kracuj volbou z senu. ~&28,9SPC (10) ; 

50006 GOSUB2000 * CLS t RUN 180 


Výpis podprogramu „Měření časové prodlevy s 8253" 


(8253) lOI (viz též obr. 2), který 
obsahuje tři nezávisle pracujicí sestup- 
né čítače. K němu přibyl adresový 
dekodér 105, který vytváří signál ČS 
pro výběr čítače. Adresa je 74 až 77H. 
Dva použité čítače ČO a Č2 pracují 
nezávisle v módu O, s přerušením na 
konci čítání. Výstup OUT čítače je po 
volbě módu na úrovni L. Po vložení 
nové předvolby OUT zůstává ve stejné 
úrovni a čítač zahájí čítání po příchodu 
H na vstup GATE. Po dočítání na nulu 
přejde OUT na úroveň H a zůstane na 
ní, dokud registr čítače není opět 
předvolen. Výběr čítače se provádí 
adresovými bity AI a AO (předvolba 
čítače ČO — L, L: Cl — L, H: C2 — H, L). 
Pro zápis řídicího slova (CW) jsou tyto 
bity H, H. Tvar slova CW zapisovaného 
do registru CWR je následující: 
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zatozuji všechna přerušení 

inicializuji čítač, Qf - řidiči slovo do střádače 

a odtud do čítače 

slabika fFH obsahu čítače do střádače 
napínání nižšího bajtu 

* vyššího bajtu čítače íf! 
adresa iniciál i zovanáho MHO z reg.C do střádače 
nahozeni MKQ 1 

je MH3 1 ještě nahozen ? Jestliže ano, čtu log / m D7. 

a vrací ■ se opět na čtení 07, dokud nepřečtu log 1 

pokud se nečítalo znovu, tak budu číst obsah čítače 

jinak jdu na nulování rag.páru H,L 

čtení nižšího bajtu Qí 

ukládáni ho do registru L 

čtení vyššího bajtu qť 

ukládán ho do registru H 

povoluji přerušení 

a vrací ■ se z podprogram do BASICu 

nuluji obsah reg. páru H,l, protože načítaná hodnota je chyb- 
ná a vracím se do BASICu 


Hodnoty R„ a C n v programu jsou 
postupně upraveny. Nejpracnější a ča- 
sově nejnáročnější je kalibrace termi- 
storu. Problém je i v tom, že se jeho 
—vlastnosti mohou časem změnit Pokud 
je k dispozici ultratermostat, který 
cejchovanou teplotu umožňuje udržet 
dostatečně diouhou dobu, je výsledek 
kalibrace velmi dobrý. Je třeba dbát i 
na stejnou hloubku ponoru snímače a 
teploměru. Náhradou za ultratermostat 
může být nádrž s možností vytápění o 
objemu asi 51, do které vložíme menší 
nádobu se snímači. Rychlost ohřevu 
nebo chladnutí musí být dostatečně 
malá. 

Přesnost měřeni 

Přesnost měření je závislá, jak již 
bylo uvedeno, na velikosti převodu. Z 
tohoto důvodu je ošetřena programově 
volba rozsahu. Informativně platí, že 
časové prodlevě 1 ms odpovídá převod 
2048 jednotek (relativní chyba asi 
0,05 %). V praxi, při měření odporu v 
porovnání s naměřenými hodnotami 
číslicovým multímetrem RFT G 
1001.500, to představuje chybu menší 
než 1 %. Při měření kapacit a odporů se 
porovnávaly výsledky měření s přístro- 
jem RLC10. Byly zjištěny rozdíly až 
10 %. Jiné měřidlo není momentálně k 
dispozici. Při měření teploty závisí 
chyba na kvalitě kalibrace a přesnosti 
aproximace. Nemusí překročit 0,1 °C. 
Lze využít malé tepelné kapacity per- 
ličkového termistoru (malá setrvač- 
nost) ke sledování různých fyzikálních 
dějů, např. fázových přeměn tuhnou- 
cích vosků apod. 

Závěr 

Měřicí přípravek byl postaven jako 
doplněk digitizéru 2 pro další využití 
jeho převodníku DIGI2. Náklady na 
jeho stavbu jsou asi 250 Kčs. Mate- 


riálové náklady na DIGI2 jsou asi 
700 Kčs. Jednoduchá konstrukce a 
dobrá reprodukovatelnost výroby 
umožňují i amatérskou stavbu. Pod- 
mínkou použití je počítač IQ 151 se 
standardním vybavením. Přípravek má 
jednu polohu přepínače neobsazenu, 
takže je možné připojit ještě další 
snímač odporového nebo kapacitního 
typu. 
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Konstrukce, stavba a oživeni 
převodníku DIGI2 pro IQ 151 


Konstrukce převodníku 

Konstrukce převodníku DIGI2 je 
odvozena od předchozího typu převod- 
níku určeného pro jednoduchý digitizér 
{3]. DIGI2 je slučitelný s mechanikou 
tohoto zařízení. Jeho vlastnosti jsou 
lepší v porovnání s předchozím typem 
v dosažené reprodukovatelnosti a roz- 
lišovací schopnosti. Ve spojení s vy- 
lepšenou mechanikou vznikl Digitizér 2, 
jehož popis však není předmětem 
tohoto příspěvku. Dále budou popsány 
pouze podstatné změny, neboť popis 
předchozího převodníku byl uveřejněn. 

Místo programového čítače byl pou- 
žit programovatelný čítač KR580V153 


bit 

D7 06 

D5 04 

03 02 01 

DO 

vý- 

znam 

voíba čítače 

čtení/zápis 

volba módu 

čítání 

binární 

deka- 

dické 


V našem případě pro mód 0, binární 
čítání a zápis/čtení v pořadí nižší bajt 
— vyšší bajt, jsou tvary řídicích slov pro 
čítač CO — 30H, Cl — 70H a C2 — B0H. 
Obsluha čítače je patrná i z výpisu 
programu ve strojovém kódu. Adresa 
pro zápis CW je 77H a pro čtení/zápis 
(IN/OUT) čítače CO je 74H. Na vstup 
CLK jednotlivých čítačů je přiveden 
hodinový kmitočet 2048 kHz. Spouštěcí 
impuls pro GATE je u čítače CO získán 
z výstupu 3 104, zapojeného jako 
monostabilní klopný obvod (MKO). Je- 
ho vstup 2 je v klidové úrovni H, což 
zajišťuje 1010b a rezistor R5. MKO je 
nastaven bitem DO programové přes 
102, který musí být aktivován signálem 
ČŠ, vytvářeným adresovým dekodérem 
106, je-li adresován 78 až 7BH. Směr 
toku dat obousměrného oddélovače 
datové sbdmice je řízen signálem DC, 
který je vytvořen dvěma hradly J08c, d, 
ve funkci logického součinu H.IOR. Při 
čtení dat je DC = L. Druhý bit datové 
sběrnice Dl je určen též pro hlášení 
přetečení čítače, které je signalizováno 
úrovní H výstupu OUT 0 v průběhu 
čítání. Třetí bit D2 je zde ve významu 
ukončení časové prodlevy, hlášení z vý- 
stupu MKO o úrovni L je dáno přes 
logický součet 1010a a 107a. Umožňuje 
další pokračování programu bez zby- 
tečného čekání. 

V případě, že převodník bude vy- 
užit pouze k měřicímu přípravku, lze 
vypustit 103, obvod pro ošetření 
mikrospínače a logický součet 
101 Oa, c a Í07a lze nahradit sledova- 
čem ze dvou invertorů. 

Velikost převodu DIGI2 je asi 29x 
větší než předchozího převodníku. Pro- 
to došlo i ke zmenšení kapacity časova- 
cího kondenzátoru MKO. Relativní chy- 
ba převodu je asi 0,05%. Velikost 
převodu je úměrná rozdílu hodnoty 
předvolby čítače (FFFFH = 65 535 a ob- 
sahu čítače po dočítání. 

Stavba převodníku 

Protože se v amatérských podmín- 
kách předpokládá jednorázová kusová 
výroba a výroba oboustranných desek 
plošných spojů je obtížná, bylo použito 
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Výpis strojového kódu spojovacího programu 
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technologie ovíjených spojů drátem se 
samopájitelnou izolaci o průměru 
0,1 mm. Po rozmístěni součástek na 
desku (může být užito univerzální des- 
ky, umožni lepši upevnění součástek) 
z libovolného izolačního materiálu ne- 
podléhajícího tepelné degradaci o roz- 
měrech 135x92 mm se součástky pro- 
pojí přímo podle schématu. Ideální 
k tomu účelu je stavebnice Univerzál, 
kterou vyrábí ZPA Nový Bor a do škol 
dodává n. p. Komenium. Součástí této 
stavebnice je ovíjítko. Pájecí body tvoři 
zpravidla vývody lO nebo jejich patic. 
Ovíjftkem vytvoříme v pájecím bodě 
dva až tři závity, drát utahujeme 
a pokračujeme k dalšímu spojovanému 
bodu, kde po ovinutí drát přerušíme 
pomocným nástrojem, který slouží i pro 
vedeni drátu (držíme jej v levé ruce). 
Pájeni je třeba provádět čistě s mini- 
málně nutným množstvím pájky a při- 
měřeným množstvím tavidla. Spoje 
vedeme přímo, pečlivě a pozorně, 
nesmí dojit k nekontrolovatelnému po- 
škozeni izolace teplem pájecího hrotu. 
Spojení převodníku s mechanikou ne- 
bo měřicím přípravkem je provedeno 
ohebným plochým vodičem 8x0,3 nebo 
8x0,5, který je veden v drážce 
11x2,8 mm na spojovací desce a na 
druhé straně je zakončen konektorem 
WK 46240 se 12-ti vývody. 

Oživováni převodníku 

Před oživováním se vyplatí pečlivá 
kontrola všech spojů. Je to obtížné, ale 
vyplatí se to. Teprve potom připojíme 
desku ke zdroji. Vzorek byt oživován 
laboratorním zdrojem BS525. Kontrolu- 
jeme zejména napětí stabilizátoru, kte- 
ré má být asi 5 V. Odběr převodníku by 
měl být okolo 250 mA (U,*). Aby 
nevznikly úbytky napětí v napájení IO, 
je třeba tyto spoje náležitě zesílit 
(několik průřezů nebo použít tlustší 
vodič). Do vypnutého počítače zasune- 
me výnos, do něho převodník (nezakry- 
tovaný), zapneme počítač a monitor 
a sledujeme jeho obrazovku. Pokud se 
objeví za přítomnosti modulů BASIC 
6 a VIDE032 známé Basic — r&ady, je 
vše zatím v pořádku. Pokud se objeví 
směsice znaků po celé obrazovce, 
počítač vypneme a odstraníme zkrat na 
adresové sběrnici. Pokračujeme na- 
hráním programu. Ten se skládá ze tří 
částí a jeho nevýhodou je, že je příliš 
dlouhý. V této fázi potřebujeme pouze 
část z přílohy 2 a k tomu přidáme 
v BASICu podprogram „Měření u řádek 
5000. Na řádku 5062 zrušíme REM a na 
řádek 5080 vložíme místo RETURN 
např. WAIT (50): GO TO 5000. Je účelné 
si i tento krátký program spolu 
s programem ve strojovém kódu od 
adresy 4000 nahrát. Zajistíme se tak 
proti jeho ztrátě při zacyklení počítače. 
Pokud se po odstartování programu 
objevuji na obrazovce snímané převo- 
dy (je pochopitelně nutné mít připojenu 
mechaniku nebo měřicí přípravek 
— pozor na špatně připojený nebo 
otočený konektor WK), je vše v pořád- 
ku. V případě, že převodník pracuje 
špatně, kontrolujeme jednotlivé sig- 
nály, počínaje CS pro 101 a 102, 
spouštěcí impuls pro MKO nebo GATE 
čítače, stav OUT čítače a pod. Ke 
kontrole stačí školní logická sonda 
BK 121. Po oživení zabudujeme desku 
do modulové krabičky, kterou opatříme 
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štítkem DIGI2 orientovaným stejně jako 
na ostatních modulech IO 151 (nesmí 
dojít k opačnému zasunutí do počíta- 
če). Nyní je možné vložit do počítače 
celý program. Spojovací část progra- 
mu (viz výpis) slouží pro jeho na- 
hrávání. Obsahuje hlavičku programu 
a teplý start BASICu. Program lze celý 
nahrát stiskem “5“ programového ME- 
NU. Do počítače se pak vkládá známým 
postupem pro nahrávání v monitoru. 

Převodník DIGI2 je součástí stále se 
rozšiřující stavebnice. Ve spojení 


Integrované obvody 


IO 1 

KR 580 VI 53 (8253) 

10 2 

MH 3216 

IO 3.4 

E 555 (NE 555) 

10 5,6 

MH 7430 

10 7. 8 

MH 7400 

10 9, 10 

MH 7404 

10 11 

MAA 723 

flBristory TR 151 (161) 

R1, 2 

3.9 kil 

R3, 4 

3300 

R5, 6 

470 0 

R7, 8, 9 

3,9 kO 

R10 

12 O 

R11 

1,8 kQ 

R12 

6,8 ka 


s vylepšenou mechanikou vznikne Digi- 
tizér 2. Jeho programové vybavení je 
dnes již dost rozsáhlé a rovněž se 
neustále rozšiřuje, takže se nevyplatí 
program ručně vkládat z výpisu, ale 
nahrát jej přímo na kazetu nebo diske- 
tu. To platí i pro měřicí přípravek. 
Dokumentace a programové vybavení 
je k dispozici na SPŠ ve Varnsdorfu, 
kde vám rádi pomohou radou i skut- 
kem, ovšem pochopitelně v rámci ko- 
nečných časových možností. 


R13 1,2 kil 

Pí, 2 0,1 Míl/N TP 280 

Kondensátory 

Cl TE 007 100 |iF/15 V 

C2 TK 747 100 nF 

C3 TK 747 100 pF 

04, 5 TC 215 220 nF (MPT — Pr 96, 

TGL 55163 

Ostatní součástky 


Objímka DiL 14 6 ks 

Objímka DÍL 16 2 ks 

Objímka DIL 24 1 ks 

Konektor FRB TY 517 20 11 1 ks 

Konektor WK 462 40 1 ks 

Konektor WK 465 40 1 ks 


4 . 



Součástky použité pro stavbu pře v odní k u 
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K uchování většího množství dat různého charakteru byl vytvořen relační interaktivní databázový systém 
— BIOS — pro mikropočítače řady MZ-700 a MZ-800 <v módu MZ-700). Tento systém umožňuje interaktivní 
formou definovat, modifikovat a zpracovávat data dvou typů v tabulkové formě. 

Databáze je organizována ve formě tabulek pojmenovaných vlastním jménem. Řádky tabulky představují 
jednotlivé záznamy databáze, kde každý záznam má volitelný počet položek (sloupců) libovolného jména 
a formátu. 


Přfklmt 

Jméno databáze: LIDÉ 


1 

2 

3 

mu 

JMÉNO 

PŘÍJMENÍ 

TELEFON 

VĚK 

Jana 

Krátká 

3227 

20 

Ivoš 

Pech 

4138 

17 

Oto 

Mann 

2256 

31 


Příklad ukazuje organizaci databáze 
UDÉ, která obsahuje tři nezávislé zá- 
znamy o čtyřech položkách (JMÉNO, 
PŘÍJMENÍ, TELEFON, VĚK). 

FORMÁT DAT 

Databáze rozlišuje dva formáty dat: 

formát 1 . . . numerická data (reál nebo 
integer), 

formát 2 . . . textová data (řetězce libo- 
volných znaků včetně české abecedy). 

Obsah položky je nulový, jestliže 
= 0 (formát 1) anebo = (formát 2). 


STRUKTURA DAT 

Vzhledem k tomu, že program byl 
vytvářen pro základní konfigurací mik- 
ropočítače, bez vnějších periferii pouze 
s magnetofonem, byla jediná struktura, 
dostupná pro uchování dat v paměti, 
pole. Tato skutečnost způsobuje výraz- 
né degradování databáze v oblasti její 
variability a rozsahu. 

Pro fyzické uchování dat bylo využito 
dvou potí, které uchovávají jak informa- 
ce o struktuře databáze, tak vlastní 
data, která tvoří její obsah. 


Pole obsahuje informace o jménech 
databáze a všech položek, kterých 
může být libovolný počet X. Dále 
obsahuje obsahy všech položek for- 
mátu 2, pro všechny záznamy v tako- 
vém pořadí, v jakém jsou v databázi 
uvedeny (tj. zleva doprava a shora dolů 
— viz příklad). 

B. Pole TF(N) 


STRUKTURA PROGRAMU 

I když jazyk BASIC není optimální pro 
strukturované programování, při tvorbě 
programu bylo přihlíženo k tomu, aby 
program byl co nejčitelnější a nejsrozu- 
mitelnější. Proto je celý program dělen 
do programových celků, které začínají 
na řádcích XXOOO a končí na řádcích 
XX990. Tyto programové celky mají 
charakter podprogramů, které vyko- 
návají příslušné akce daného příkazu 
a jsou volány rozskokovou tabulkou na 
začátku programu. 


Od čísla řádku 30000 jsou uloženy 
některé podprogramy společné pro 
činnost programu (definice obrazovky, 
ošetření chyb, definice české abecedy, 
servisní modul apod.). 

činnost programu a umístění pří- 
slušných podprogramů jsou zřejmé 
z grafických schémat. 


A. Pole ADFfi(N) 


0 

1 

2 


X 

X-t-1 

X+2 


N 

jméno 

databáze 

jméno 1. 
položky 

jméno 2. 
položky 

... 

jméno X. 
položky 

data 

data 

... 

data 


UKAZATEL ZÁZNAMU 

Ve struktuře databáze je obsažen 
ukazatel, který ukazuje na jeden ze 
záznamů databáze. Tento záznam se 
nazývá „běžný záznam" a je to 
záznam, se kterým se momentálně 
pracuje a na kterém (resp. od kterého) 
se budou provádět příkazy. 

Obsah tohoto ukazatele se mění 
buď v souladu s výsledkem určitého 
příkazu anebo jej může uživatel změnit 
přímo. 

VÝBĚR ZÁZNAMŮ 

Databáze umožňuje výběr libovolné 
podmnožiny záznamů (příkazy O, A, 
H — viz „PŘÍKAZY"), podle zvolených 
kritérií, nad kterými se budou provádět 
příkazy D, P, X (viz „PŘÍKAZY"). Tyto 
vybrané záznamy se nazývají „aktivní 
záznamy". 

IMPLEMENTACE 

Uvedený interaktivní databázový sy- 
stém byl realizován na počítači SHARP 
MZ-821 (v modu MZ-700) ve dvou 
modifikacích: 

a) v jazyku S-BASIC (MZ-1Z013) 
— interpret: 

b) ve strojovém kódu, jako produkt 
kompilátoru S-BASIC COMP. 

Pro lepší názornost uvádím modifi- 
kaci v S-BASICu. Uživatel má možnost 
po nahrazení konstrukcí IF ERROR 
GOTO a RÉSUMÉ za BREAK ON 
a BREAK OFF a jiným postupem 
definice české abecedy (viz. ř. 12—13) 
uvedenou verzi zkompilovat. 


0 

1 

2 

3 

4 


X+2 

X+3 


N 

potet 

zázna- 

mů 

poůet po- 
ložek v 1 
záznamu 

potet po- 
ložek for- 
mátu 2 

formát 

l.pol. 

formát 

2. poL 

... 

formát 

X. pol. 

data 

... 

data 


Pole obsahuje informace o struktuře 
databáze (velikost a formáty) a obsahy 
všech položek formátu 1. 

Příklad uložení databáze v polích: 


JMÉNO 

PŘÍJMENÍ 

TELEFON 

Jana 

Ivoš 

Krátká 

Pech 

3227 

4138 


OBSLUHA PROGRAMU R1DS 

Program pracuje v interaktivním reži- 
mu a tudíž i nezaučený uživatel je 
schopen ho ovládat 


Obrazovka je rozdělena do dvou 
částí: 


Uložení: 



0 

1 

2 

3 

4 

5 

6 

7 

ADP$ 

Uf»É 

JMÉ- 

NO 

PŘU- 

iieyj 

TELE- 

FON 

Jana 

Krátká 

Ivoš 

Pech 


horní část — informační, 
dolní část — konverzační. 



0 

1 

2 

3 

4 

5 

6 

7 

TF 

2 

3 

2 

2 

2 

1 

3227 

4138 


Dimenze obou polí má uživatel 
možnost upravovat na řádku 20 podle 
toho, jaký charakter budou mít ukláda- 
ná data. Musí mít ovšem stále na 
paměti, že: 
pro ADF$(n) . . . n>X 
pro TF (n) . . . n>X+2 
Jestliže tedy bude mít položky pouze 
formátu 1, potom může pole ADF$ 
zkrátit na úkor pole TF a naopak. 
POZOR, při použití příkazu Z je třeba 
mít na zřeteli, jakou strukturu bude mít 
databáze zaváděná z 4 magnetofonu. 


V informační části jsou vypisovány 
výsledky prováděných příkazů a sy- 
stémová hlášení. V konverzační části 
probíhá veškerá konverzace mezi sy- 
stémem a uživatelem. 

Po zavedení S-BASJCu a zdrojového 
programu RIDS do paměti a po jeho 
spuštění se objeví na obrazovce úvodní 
hlášení, ve kterém je uživatel tázán, zda 
si přeje definovat českou abecedu. 
Jestliže ano, pak z CMT bude načten 
a proveden soubor ve strojovém kódu 
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„ČESKY PCG“. Jestliže ne, pak tento 
soubor nenf potřebný k činnosti data- 
báze. Po stisknutí příkazu ? je uživatel 
informován o všech jemu dostupných 
příkazech. 

Poznámka: Prvním příkazem musí být 
vždy G nebo Z (viz dále), jinak systém 
reaguje chybovým hlášením. Po příka- 
zu G nebo Z se doporučuje specifikovat 
formát tisku příkazem Y, protože impli- 
citní nastaveni tisku je omezeno pouze 
na tisk 1. položky bez uvedení jmen. 

příkazy 

V konverzační částí obrazovky sy- 
stém indikuje příznakem stav, kdy 
očekává jednopísmenový kód příkazu. 
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[300] 
[290-2951 
[24000-24990] 
123000 - 23990] 
[22000 - 229901 
[21000 - 219901 
[20000 - 209901 
[190)0-19990] 
(18000-18990) 
[17000-17990] 
116000-16990] 
[15000-15990) 
[14000-14990] 
[13000-13990] 
[12000 - 129901 
111000 - 11990) 
110000 -10995] 
[9000-9990] 
l 8000 - 8990 ] 
[7000 - 7990] 
[6000 - 6990] 
[5000 - 5990] 
[4000 - 4990] 
[3000 - 3990] 

[ 2000 - 2990 1 


[1000-19901 
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Z tisU úvodní / 
obrazovky/ 


^jžti^příkaz*^^ 


/ tisk všech / ♦ 

—f přika2Ú A" * 



•w 


' tisk jména,/ 
’ DB, počtu 
počtu pot 
J běžný zázr 
počtu ak- 
' tivnřch zá- 
znamu 




přesun u_ko - 
zatele vpřed 

/běžn zózny 


/čti položku/ 
/a její obsah/ 

JET 


vyhledej 

záznam 


/ tisk naleze-/ 
/né položky/ 


fb ti 7 

/ položku /*" 

“xi 

/tišit* 7 

/ položky / 


/ItT 7 

/ kolik / 


zruš 

záznamy 


/ tisk nového 7 

bežn zazn / 


© 




/tisk potí / 
j)A0FS,TF, IP j 


/tisk jmen. / 
W čísel c L— 
/ formátu / 

/ položek / 


7 

*7 o kolik / 


přesun uka- 
zatele vzad 


/tisk nového / 
/ běžn. zázn / 







/čt; 7 

ýnovy obsah / 


ulož 

nový obsah 


(50000 - 50990 ] 

L 


proveď 



příkaz '£' 


/ cti 7 

/novy obsah # 


ulož 

nový obsah 


7 

y novy zazn [ 

TlT 


utp/ ho před 
bezny a ucsn 


0 


0 






Pro nékteré příkazy víz Implementační 
omezení. 

A. Příkazy pro databázi 

? — dostupné příkazy. 

Vypíše všechny dostupné příkazy 
a jejich význam. 

G — vytvoření struktury databáze. 
Definuje se jméno databáze (tabulky), 


počet položek záznamu (=počet sloup- 
ců tabulky), jména položek a formáty 
dat obsažených v položkách. Strukturu 
databáze lze pozdéji prostřednictvím 
jiných příkazů modifikovat. 

K — zrušení databáze. 

Zruší nejenom obsah databáze, ale i její 
strukturu. 

Z — zavedení databáze. 

Zavede dříve vytvořenou databázi 


<Qb - V— . 

J cti nový / 

7 záznam / 

/ > 7 A 

připoj nový 
zázn na ko- 
nec D8 a u6,č 
ho běžným 

# -T 

i . i 

rozepiš 

záznamy ^ 

/čti předch j 

Tpol.. jméno a/ 
/form nové p / 

1 čti položku / 4 

/ a nové ‘ N / 

/ jméno / 

vytvoř novou 
pol. a naptá ji 
nulovou hodn. 

proveď 

přejmenování 

1 

r«. — 7 

j rušenou # 
í položku / 

ZXL, 

zruš položku 
ve všech 
záznamech 


ulož 08 
bez hesla 


ulož OB 
pod heslem 


/ definuj 
f strukturu 
r databáze 


vytvoř novou 
databázi 


feti pot ..její 
/obsah a poch 


proveď 
přikaž ‘R' 






I tisk 
'chybového 
hlášení 


zaveď 08 J f iv ^ lo 
do paměti I / 


» y ď heslo ^ 
souhlasí . 


I převod všech 
Izázn. do množ. 


tisk poštu z., 
součtu, prúm J 
st. odchyl / 


proveď 
příkaz "R" 


/čti pot., její, 

7 obsah a podj 
/minky výběn/ 


proveď 
příkaz ~R' 


/ čti druh 
/ tisku a kte- 
fré položky 


/ tisk 
F chybového 
hlášení 


z CMT do paméti (obdoba Load). Je-li 
soubor s databází chránén heslem, pak 
uživatel musf toto heslo specifikovat 
U — uloženi databáze. 

Stávající databáze se uloží na CMT 
(obdoba Savé). Existuje možnost 
chránit ukládanou databázi heslem. 

R — stav databáze. 

Rozepíše stávající strukturu databáze 
(jméno, počet záznamů, počet položek, 
béžný záznam a počet aktivních 

) záznamů). 

Q — konec činnosti. 

Ukonči činnost RIDS, používá 
se po předchozím použití 
příkazu U. 

B. Příkazy pro záznamy 

I — vložení záznamu. 

Vsune nový záznam před běžný 
a nový záznam učiní béžným. 

B — přidání záznamu. 

Přidá nový záznam na konec 
databáze a učiní ho béžným. 
Do — zrušení záznamů. 

Zruší n záznamů počínaje 
běžným (včetně) a béžným uči- 
ní následující nezrušený zá- 
znam. Je-li počet rušených zá- 
znamů větší než počet záznamů 
od běžného do konce data- 
báze, pak se zruší pouze zázna- 
my od běžného do konce data- 
báze a béžným se stává zá- 
znam před prvním zrušeným. 
POZOR, ruší se pouze aktivní 
záznamy! 

+n — přesun ukazatele 

běžného záznamu dopředu. 
Učiní béžným ten záznam, který 
má pořadové číslo o n větší, 
než stávající béžný záznam. 
Dosáhne-li se konce databáze, 
stává se béžným poslední zá- 
znam. 

-n — přesun ukazatele 

běžného záznamu dozadu. 
Učiní běžným ten záznam, který 
má pořadové číslo o n menši, 
než stávající béžný záznam. 
Dosáhne-li se začátku data- 
báze, stává se béžným první 
— *(4)záznam. 

v -'Pn — výpis záznamů. 

Funguje stejné jako přikaž 
D s tím rozdílem, že neruší zá- 
znamy, ale vypisuje je na obra- 
zovku ve formátu zvoleném 
příkazem Y. Tisk se pozastavu- 
je po každém stisknutí mezer- 
nfku, dalším stiskem mezemfku 
lze pokračovat Zrušeni tisku se 
provede klávesou Q 
H — inicializace množiny aktiv- 
ních záznamů. 

Převádí všechny záznamy do 
množiny aktivních záznamů. 

A — operace AND. 

V množině aktivních záznamů 
ponechá pouze ty záznamy, 
jež splňují zadanou podmín- 
ku. 

O — operace OR. 

Do množiny aktivních záznamů 
přidá ty neaktivní, které splňují 
zadanou podmínku. 

Y — selekce tisku. 

Specifikuje formát tisku. PO- 
ZOR, při tisku do řádku lze tisk- 
nout pouze 3 položky (vzhle- 
dem k omezené šířce obrazov- 
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ky) v libovolném pořadí, a to s maxi- 
mální délkou řetězce 10 znalců (delší 
řetězec je zprava zkrácen — formát 2). 

C. Příkazy pro položky 

C — položky databáze 

afoímátrt.° P ° l0íkách < elsla - i mé ™ 

M — přidání položky. 

Přidá novou položku do struktury data- 

' 0bsah , této P° ,ož ky je v každém 
záznamu nulový (viz Formát dat) 

™ — změna jména. 

n i- J . méno specifikované položky 
Je-li číslo specifikované položky = 0 
pak zrněni jméno databáze Y 
F — zrušení položky. 

Zruší libovolnou položku databáze. 

L nalezení položky. 

Nalezne první záznam s položkou ieiíž 

mem C e íl u i e uživatel - Běžným záina- 
naleze "ý záznam anebo 

2čííáM ě tóíi nena i de ‘ ,í se >* hledání 
fo u Za záznamem, pokraču- 

je do konce databáze a dále pokračuje 

znamu átkU databáze do báného zá 
S — vyhledání a změna. 

Provádí totéž co příkaz L, s následnou 
změnou obsahu položky nas,eanou 
E — zobrazení položky. 

Vypíše obsah libovolné položky běžné- 
ho záznamu, 
v — zobrazení a změna. 

Provádí totéž co příkaz E, s následnou 
změnou obsahu položky. 

X — statistika. 

P IP. ve íl e statistických údajů na 

základě obsahu položky. POZOR vy- 
čislovaná položka musí být formátu V 
Vypočtené údaje jsou: 

— ' počet záznamů (aktivních): 
součet; 
průměr; 

standardní odchylka. 

POZOR, vyčísluje pouze aktivní zázna- 
my! 

CHYBOVÁ HLÁŠENÍ 

*** CHYBNÝ VSTUP ! *** 

Indikuje chybu při operaci INPUT: 

— formát 2 místo formátu 1: POZOR 
ne naopak! 

— chybné číslo položky; 

— položka formátu 2 u příkazu X; 

— nenumerická specifikace položky 
nebo formátu; 

— formát položky = 1 nebo 2. 

*** PRÁZDNA DATABÁZE I *** 

Pokus o provedení příkazu nad data- 
bázi s nulovým počtem záznamů. 

DATABÁZE nevytvořena i *** 

Neproveden prvotní příkaz G nebo Z. 

r* APAC,TA PŘEKROČENA ! *** 

Další záznam do databáze není možný 
z důvodů překročení kapacity paměti. 
Použito u příkazů I, B, M. 

*** ZRUŠTE DATABÁZI ! *** 

U příkazu F, když uživatel ruší poslední 
položku databáze. 

IMPLEMENTAČNÍ OMEZENÍ 

a) Při zadávání parametrů pro příkažy 
se položka vždy specifikuje svým čís- 


lem a ne jménem (lze zjistit příkazem 
C)» 

b) formát položky se vždy specifikuie 
svým číslem: 

1 . . . numerická data; 

2 . . . textová data. 

c) nepoužívejte 


SHIFT + BREAK, 


došlo by ke zhroucení systému. 

ČESKÁ ABECEDA 

RIDS umožňuje používat velká i malá 
písmena a také háčky a čárky pomocí 
klávesy 


GRAPH 


Například, napsání slova UČENÍ se 
provede touto posloupností 




Í?f..? RAPH za P' ná háčky a čárky a 
ALPHA vypíná háčky a čárky. y 

Protože písmena E a U mohou mít až 
tři varianty, je jejich přiřazení toto: 

El =Igraph] + H3 (ú] = (6řaphU [p[ 

tjH = Igraph] +jw| 0 = ÍGRAPHl +[u] 

C v ^p« s programu RIDS 


295 IF <OPx=»K")#<LEFTxcIx,t)<>.i A . ) JHEN 

Dv 

300 GOSUB 34000 :CURS0R 5, SPRINT CSx : C0T 

U 50 

310 QK=0:G0T0 50 

1000 REM *** ?. . HB P m 

1005 G0SUB 3400© 

1010 PRINT "PŘIKAŽ VYZNÁM" 

1020 PRINT * _______ 

1040 PRINT " ? INFORMACE 0 PRIKAZEC 

1050 PRINT " R STAV DATABAZE" 

JÍSa ^1^ l C POLOŽKY DATABAZE" 

1070 PRINT +tN3. .POSUV UKAZATELE VPRE 

108© PRINT " -CN3... POSUV UKAZATELE VZAD 

PRINT " L NALEZENI ZAZNAMU" 

110© PRINT " S JAKO L SE ZMĚNOU* 

lilO^PRINT " E ZOBRAZENI OBSAHU POL 

1120 PRINT " V JAKO .E SE ZMĚNOU" 

1130 PRINT " DCNJ . . ZRUŠENI ZAZNAMU" 

" 1 VLOŽENI ZAZNAMU PŘED 

1150 PRINT " B PŘIDANÍ ZAZNAMU NA K 

UNcC 

1160 PRINT * Pt NI. . ROZEPSANÍ ZAZNAMU" 

1162 CURS0R 2,20 "•‘"Hnu 

1163 C0NS0LE 18,6,2,36 

1164 INPUT "DALSI PŘÍKAZY? (A/N) >";0px 

1166 IF LEFTx(0Px,1)<>“A" THEN 199© 

1167 G0SU8 34000 

1168 PRINT "PŘIKAŽ VYZNÁM" 

1169 PRINT " . - 

1170 PRINT " M PŘIDANÍ POLOŽKY" 

1180 PRINT * N PŘEJMENOVANÍ POLOŽKY 
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10 REM *** RIDS m 

11 CLS: CURSOR 16,6: PRINT "R I D S"-CURS0 
R 14, 7 : PRINT "JSSt 0-1987" 

12 CURSOR 1,12: IWUT "DEFINOVAT ČESKOU A 
BECEDU ? (A/N) > " í0Px :0 Px=LEFTx(0Px^i) 

13 IF 0Px=“A" THEN PRINT: PRINT "JE NUTNÝ 
SOUBOR NA CMT: > ČESKY PCG< !":CURS0R 15 

^.PRINTCHRxíxTF),- PLAV": LIMIT xFOO©. 
LOAD “ČESKY PCG" USRťxFOOO) : LIMIT MAX PO 
KE x6BCF,x3B,xl 

14 ON ERROR GOTO 39000 

15 COLOR ,,7,0 

20 ADF=560 : NTF=500 ; NZD=260 

25 DIM ADFx(ADF) ,TF(NTF) , IP(N2D) ,TS(6) 

30 CLS:OK=-1:AZ=0 
35 GOSUB 3300© 

50 GOSUB 35O00 
53 MUSIC "A0.5" 

55 PRINT " 

60 GET 0Px : IF 0Px="“ THEN 60 
62 PRINT OPx 

65 IF 0Px=«W" THEN GOSUB 3408© .GOSUB 50© 
00; GOTO 50 

70 IF 0Px="Q" THEN CONSOLE .- CLS END 
80 IF 0Px=“?" THEN GOSUB 1 ©80: GOTO 5© 

90IF (0Px<>"G")*(0Px<>"Z")*(0K=-1) THEN 

GOSUB 34000: CURSOR 5,5: PRINT "Ht DATAB 
AZE NEVYTVOŘENA < **+" : GOTO 50 
;«* H QP*=“R" THEN GOSUB 2OO0:GOTO 310 
12© IF QPx="C* THEN GOSUB 3000= GOTO 310 
130 IF 0Px=“+" THEN GOSUB 4060. GOTO 310 
ÍÍL 0PK= ”~" t * n GOSUB 50©0 : GOTO 31© 
150 IF 0Px="L" THEN GOSUB 6000: GOTO 310 
160 IF 0Px="S" THEN GOSUB 7000 : GOTO 310 
9£* S “ E “ ^ GOSUB 8000: GOTO 310 
180 IF 0Px="V" THEN COSI© 9000= GOTO 310 
19© IF 0Px=“D" THEN GOSUB 10O00:GOTO 31© 
2O0 IF 0Px=" I “ THEN GOSUB 11000. GOTO 310 
21© IF 0Px=*B" THEN GOSUB 12006: GOTO 310 
220 IF 0Px="P" THEN GOSUB 13000: GOTO 310 
-3© IF 0Px=“H“ T>EN GOSUB 14000: GOTO 310 
24© IF 0Px="N" THEN GOSUB 15©©0=GOTO 310 
S0 IF 0Px="F" THEN GOSUB 16000: GOTO 310 
26© IF 0Px=»U” THEN GOSUB 17000 , GOTO 310 
-70 IF 0Px="Z" T1EN GOSUB 18000 : GOTO 310 

280 IF 0Px=“G" THEN GOSUB 19600 : GOTO 310 

281 IF 0Px=“H" THEN GOSUB 26600: GOTO 316 

282 IF 0Px=“A“ THEN GOSUB 21000 : GOTO 31© 

JF 0Px="0" THEN GOSUB 22080: GOTO 310 

284 IF 0Px=»X« THEN GOSUB 23600. GOTO 316 

285 IF QPX="Y" THEN GOSUB 24006: GOTO 310 
29© IF 0Px="K" THEN PRINT: INPUT " POTVRĎ 
TE! <A/N) > ",Ix.if LEFTx(Ix,1)="a« THEN 

30 


119© 

1206 

CMT" 

1210 

CMT" 

1220 

1230 

124© 

125© 

AND 

1266 

OR” 

1276 

1286 

1290 

ZI" 

1990 

2600 

2605 

2010 

2020 

2630 

2040 

2050 

2060 


PRINT " F...... ZRUŠENI POLOŽKY" 

PRIMT ’ U ULOŽENI DATABAZE NA 

PRINT " z ZAVEDENI DATABAZE Z 

HHJNT " G VYTVOŘENI DATABAZE" 

PKÍNT " K ZRUŠENI DATABAZE" 

P* 1 ** 1 “ H AKTIVIZACE ZAZNAMU" 

PRINT " A AKTIVIZACE - OPERACI 

PP INT " 0 AKTIVIZACE - OPERACI 

P*™ 7 l * STATISTIKA DAT" 

PR 1NT 7 SELEKCE TISKU" 

PR™ 7 * » konec PRAČE S DATABA 


return 

REM *** R. STAV DATABAZE «** 
GOSUB 34000 

PRINT "DATABAZE t *,ADFX(0) 
PRINT "ZAZNAMU : ";TF<0) 

PRINT "POLOŽEK : " í TF ( 1 ) 

PRINT 

PRINT "BEZNY ZAZNAM ";A2 • 

PRINT “ 


2070 P0C=0 

2075 IF TF(0)=© THEN 211© 

2080 FOR 1=1 TO TF<0> 

2090 IF IP(I)=0 THEN P0C=P0C+1 
2108 NEXT I 

2116 PRINT "AKTIVNÍCH ZAZNAMU : *;POC 
299© RETURN 

3006 REM *** C. . .POLOŽKY #** 

3605 GOSUB 3400© 

301© FOR 1=1 TO TFíl) 

fí»i; 2 ); íW>Fx(i),TA8(26jí ‘ F ^ 

3030 NEXT I 
3990 RETURN 

4O0© REM *** +. . .POSUV VPŘED *»* 

4605 IF TF<©)=0 TKEN GOTO 36000 
4016 INPUT "0 KOLIK >";KCLIK 

<KOLIK<0, + CKOLIKOINT(KOLIK)) TH 
EN GOSL© 37600: GOTO 4610 
402© AZ=AZ+KOLIK 
4036 IF AZ>TF(0) T)€N AZ=TF(0) 

4990 K0LIK=1 : GOTO 13020 

5000 REM *** -. . .POSUV VZAD m 

5605 IF TF(0)=0 THEN GOTO 36000 

5010 INPUT "0 KOLIK >";K0LIK 

5615 IF (KOLIK<0)+(KOLIKOINT(KOLIK) ) TH 

EN G0SU8 37000: GOTO 501© 

502© AZ=AZ-KOLIK 
5030 IF AZ<1 TTEN AZ=1 
5990 GOTO 4990 

6800 REM *** L. . .VYHLEDANÍ ZAZNAMU *** 
6005 IF TF(0T=0 THEN GOTO 3600© 

6016 INPUT "POLOŽKA >";SL 


6©20 IF <SL>TF<1) )+<SL<l)+<SLOINT(SL) ) 

TFEN GOSUB 37000: GOTO 6G10 

6030 IF ABS(TF(SL+2) )=1 THEN INPUT "OBSA 

H >“;PR:GOTO 6040 

6035 imn “OBSAH >";PRx 

6040 PP=0:KOLIK=0 

6045 IF SL=1 THEN 6075 

605O FOR 1=1 TO SL-1 

6060 IF ABS(TF( 1+2) )=2 THEN PP=PP+1 

6070 NEXT I 

6075 POC=PP 

6080 IF ABS(TF(SL+2) )=1 TFEN 6200 
6090 PP=PP+TF ( 1 ) +1+AZ+TF ( 2 ) 

6100 IF TF<6XAZ+1 THEN 6140 
6105 FOR I=AZ+1 TO TF<0> 

6110 IF ADFx(PP)=PRx THEN AZ=I : GOTO 4990 
6120 PP=PP+TF<2) 

6130 NEXT I 

6140 PP=POC+TF ( 1 ) +1 

6145 IF AZ<1 TFEN 6190 

ilSA POP T=1 Tft 

6160 IF ADF*(PP)=PR* THEN A2=I GOTO 4990 
6170 PP=PP+TF(2) 

6180 NEXT I 
6190 GOTO 6990 

6200 PP=2+TF ( 1 ) +AZ*<TF ( 1 ) -TF ( 2 ) )+SL-POC 
6210 IF TF<0XA2+1 THEN 6250 
6215 FOR I=AZ+i TO TF<0) 

6220 IF TF<PP)=PR THEN AZ=I:GOTO 4990 
6230 PP=PP+TF<1)-TF<2) 

6240 . NEXT I 

6250 PP=2+TF 1 1 ) +SL-POC 
6255 IF AZ<1 THEN 6990 
6260 FOR 1=1 TO A2 

6270 IF TF(PP)=PR THEN AZ=I GOTO 4990 
6280 PP=PP+TF(1)-TF(2) 

6290 FEXT 'I 
6990 RETURN 

70O0 REM *** S. . VYHLEDANÍ A ZMĚNA *** 

7005 IF TF(0>=@ THEN GOTO 36000 

7010 GOSUB 6000 

7015 IF KOLIK=© THEN 7990 

7017 CURSOR 2,22 

7019 CONSOLE 18.6,2,36 

7020 IF ABS(TF(SL+2) )=1 THEN INPUT “NOVY 
OBSAH >";TF< <AZ-i)*<TF<l)-TF<2) )+SL+TF( 

1 ) +2-P0C ) ; GOTO 7990 

7O30 INPUT “NOVY OBSAH >" ,ADFx< <A2-1)»TF 
~T2)+P0C+1+TF<1>) 

7990 RETURN 

8000 REM *** E. . ZOBRAZENI POLOŽKY **+ 
8O05 IF TF(0)=0 THEN GOTO 36000 
8010 INPUT “CISLO POLOŽKY >";SL 
8015 IF <SL>TF<l)>+<SL<l)+<SLOINT<Sp) 
THEN GOSUB 37600 GOTO 8010 
8020 P0€=0 

8625 IF SL=1 THEN 8055 

803O FOR 1=1 TO SL-1 

8040 IF ABS<TFU+2)>=2 THBI P0C=P0C+1 

8056 NEXT I 

8055 GOSUB 340O0 

8660 IF ABS<TF(SL+2))=1 THEN PR1NT "OBSA 
H =“;TF((AZ-l)*{TF(l)-TF<2))+SL+TF<l)+2- 
POC) :GOTO 8990 

8070 PRINT “OBSAH = “ ,ADF*( (AZ-1)*TF<2>+ 
POC+TF < 1 ) +1 ) 

899© RETURN 

900G REM *** V . . ZOBRAZENI A ZNĚNA «* 
9005 IF TF(0)=0 THEN GOTO 36000 
9010 GOSUB 8O00 
9996 GOTO 7017 

10006 REM *** D. . RUŠENI ZAZNAHU *** 

16005 IF TF ( 0 ) =0 THEN 36606 

10010 INPUT "KOLIK >” ; KOLIK 

10015 IF (KOLIK<0>+(KOLIK<>INT(KOLIK)) T 

HEN GOSUB 37000: GOTO 1001© 

10018 IF KOLIK=0 THEN 1699© 

10620 IF KOLIK>=TF (0)-AZ+l THEN KOLIK=TF 
<0)-AZ+l : GOTO 10150 

10030 P0C=<AZ-l)*<TF(l)-TF<2))+TF<l)+3 
10040 PP=KQLIK* ( TF ( 1 )— TF (2 ) ) 

10045 IF PP<1 THEN 10090 
1005O FOR 1=1 TO (TF(G)-AZ)*(TF(1)-TF(2) 
) 

10066 TF(POC)=TF(POC+PP) 

16070 P0C=P0C+1 
10086 NEXT I 

10096 POC= ( AZ-1 ) +TF ( 2 ) +TF ( 1 ) +1 
10100 PP=K0LIK*TF(2) 

10105 IF PP<1 THEN 10141 
10110 FOR 1=1 TG <TF<0)-AZ)*TF<2> 

10120 M)Fx<POC)=ADFx<POC+PP) 

10130 P0C=P0C+1 
16140 NEXT I 

10141 IF K0LIK=1 THEN 10150 

10142 FOR 1=1 TO KOLIK-1 
10144 IP( AZ+I )=IP(AZ+KOLIK+I ) 


10146 NEXT I 

1015O IF AZ+KOLIK>TF(0) TFEN AZ=AZ-1 
10152 TF(0)=TF(0)-KOLIK 
10990 GOTO 2006 

1100© REM *** I . . VLOŽ ZAZNAM *** 

11065 IF ( ( <TF (0)+l)*<TF<l)-TF<2) )+TFCl) 
+2)>NTF)+( ( (TF(0)+1)*TF(2)+TF(1) )>ADF) T 
FEN GOSUB 38000: GOTO 11990 
11008 IF AZ=© TfCN AZ=1 
11010 POC=TF(0)*(TF(1)-TF(2) )+TF(l)+2 
11020 PP=TF(1)-TF(2) 

11025 IF <TF<0)-AZ+1)*<TF<1)-TF<2))<1 TH 
EN 11076 

11O30 FOR 1=1 TO <TF<0)-AZ+1)*<TF<1)-TF< 
2 ) ) 

11640 TF(POC+PP)=TF<POC) 

1105© P0C=P0C-1 
11060 NEXT I 

1107© P0C=TF<©)*TF(2)+TF<1) 

11080 PP=TF(2) 

11085 IF TF<2)*(TF(0)-AZ*1X1 THEN 11130 
11090 FOR 1=1 TO TF<2)*<TF<0)-AZ+1> 

11100 ADFx <POC+PP)=ADFx< POC) 

1111© P0C=P0C-1 
11120 NEXT I 
11130 POOPOC+l 

1114© PP=(AZ-1)*(TF (1)-TF(2) )+TF(l)+3 
11145 GOSUB 34000 
11156 FOR 1=1 TO TF(1) 

11160 PRINT li- .-í 

11165 IF LEFTx< JSx,l)=*A" THEN PRINT ADF 
xU); 

1117© IF ABS<TF<I+2) )=1 THEN INPUT “ >“; 

TF(PP):PP=PP+1:G0T0 11200 

11180 INPUT M >“;ADFx<POC):POC=POC+l 

11200 NEXT I 

11201 IF TF(0)-A2<0 TFEN 11210 
11204 FOR 1=0 TO TF(6)-A2 
11206 IP(TF(G)-I+1)=IP(TF(0)-I) 

11208 NEXT I 

11210 IP(AZ)=0 
11228 TF{0)=TF(O)+1 
11990 RETURN 

120O0 REM *** B. . PŘIDEJ ZAZNAM *** 

12005 IF <<<TF<0)+1)*(TF<1)-TF<2))+TF<1) 
+2>>NTF)+<<TF<6)+1)*TF<2)+TF<1)>ADF) THE 
N GOSUB 380OG GOTO 1199© 

12010 PQC=TF<1)+TF<2)*TF10)+1 
12O20 PP=TF<l)+TF<0)*<TF(l)-TF<2))+3 
1203© AZ=TF(0)+1 
12990 GOTO 11145 

130G0 REM *** p. . .TISK ZAZNAMU *** 

130O5 IF TF(0)=© THEN GOTO 36000 
13010 INPUT "KOLIK >";KOLIK 
13615 IF <K0LIK<0)+<K0LIK<>INT(K0LIK>) T 
HEN GOSUB 37060: GOTO 1301© 

1302© P2=(AZ-1)*TF<2)+TF<1)+1 
13040 PP=<AZ-1)*<TF<1)-TF<2))+TF<1)+3=P1 
=0 

13045 GOSUB 34000 

13047 IF <LEFTx<OLx,l)=“A">*<LEFTx(JSx,l 
)="A" ) THEN PRINT SPC(3); ; F0R 1=1 TO TS< 
O ) : PRINT LEFTX<ADFX<TS< I ) ) ,9) ;TAB(I*10+5 

)í:N£XT I.PRINT:PRINT " 

":CONSOLE 3,16.2,36 

13050 FOR I=AZ TO TF<0) 

13055 IF IP(I)=1 THEN P2=P2+TF<2) :PP=PP+ 
TF <1)-TF<2) :GOTQ 13120 

13057 IF P1=K0LIK THEN 13130 

13058 IF LEFTx<OLx,l)=“A“ THEN 13102 
13O60 FOR J=1 TO TF<1) 

13865 IF TF< J+2)=l TFEN PP=PP+1:G0T0 131 
00 

13067 IF TF< J+2)=2 THEN P2=P2+1:G0T0 131 
06 

13070 PRINT J; “ . " í 

13072 IF LEFTx<JSx,l)="A" THBI PRINT ADF 
X<J)i" "i 
13074 PRINT 

13076 IF ABS(TF( J+2) )=1 THEN PRINT TFÍPP 
) : PP=PP+1 : GOTO 1310© 

13078 PRINT “ "i ADFx<P2) :P2=P2+1 
1310© NEXT J 

13101 GOTO 13114 

13102 PRINT SPC<3) i :FOR J=1 TO TS<0) 

13104 IF TF<TS< J)+2)=-l THEN PRINT TF<PP 
-TS<J+3)+TS<J)-l); GOTO 13107 , 

13106 PRINT LEFT x < ADFx ( P2+TS ( J+3 ) ) ,9) i 
13167 PRINT TAB(J*10+5); 

13108 ÍCXT J 
13110 PRINT 

13112 P2=P2+TF<2):PP=PP+TF<1)-TF<2> 

13114 AZ=AZ+1 

13116 IF LEFTX(0LX,1X>“A" THEN PRINT "- 

13117 P1=P1+1 

13118 GET IX: IF <LEFTx< Ix,l)=" "MKLEFTx 


<OPx,l)=“P") TFEN GOSUB 32000 
13119 IF LEFTx<Ix,l)="Q" THEN FOR 1=1 TO 
500: NEXT I:GOTO 1313© 

13126 NEXT I 

1313© IF P1O0 TFEN AZ=AZ-1 
13990 RETURN 

14000 REM *** A. . PŘIDANÍ POLOŽKY **» 
14010 INPUT "PŘEDCHÁZEJÍCÍ POLOŽKA >";SL 
14015 IF (SL<0) + (SLOINT<SL) )+<SL>TF<l) ) 
TFEN GOSUB 370O0:GOTO 14010 
1402O PP=0 

14025 IF SL<1 TFEN 14066 

14036 FOR 1=1 TO SL 

14046 IF ABS<TF<I+2) )=2 THEN PP=PP+1 

14050 NEXT I 

1406© INPUT "JMÉNO NOVE POLOŽKY >“;PRx 
14076 INPUT "FORMÁT NOVE POLOŽKY >“,PR 
14675 IF <PR<>1)*<PR<>2) THEN GOSUB 370© 
©GOTO 14070 

14076 IF PR=1 TFEN IF <TF<0)*<TF<1)-TF<2 
) )+TF<l)+2+TF<0) )>NTF THEN GOSUB 38000: 
GOTO 1499© 

14077 IF (TF<O)*TF<2)+TF<1)+TF<0) )>ADF T 
HEN GOSUB 33000: GOTO 1499© 

1408© IF PR=1 THEN P0C=TF<l)+2+<TF<l)-TF 
(2) )*TF<G) :PQ=TF<0) :GOTO 14195 
14690 P0C=TF<1)+TF<6)+TF<2) :PQ=TF(0) 
14095 IF TF < 0 ) =0 THEN 14196 
1410© FOR 1=1 TO TF<6) 

14105 IF TF<2)-PP<1 TFEN 1414© 

14110 FOR J=1 TO TF(2)-PP 

1412© ADFx<POC+PQ)=ADFx<POC) :P0C=P0C-1 

1413© NEXT J 

1414© ADFx<POC+PG)="“.PQ=PQ-l 

14145 IF PP<1 THEN 14180 

1415© FOR J=1 TO PP 

1416© ADFx<POC+PQ)=ADFx<POC) : P0C=P0C-1 

1417© NEXT J 

14180 NEXT I 

14190 TF<2)=TF<2)+1:G0T0 1429© 

14195 IF TF(O)=0 TFEN 1429© 

14200 FOR 1=1 TO TF<0) 

14205 IF TF( 1)-TF<2)-SL+PP<1 THEN 14246 
1421© FOR J=1 TO TF ( 1 ) -TF í 2 ) -SL+PP 
1422© TF ( POC+PQ ) =TF < POC ) : POC=POC-i 
14230 NEXT J 

14240 TF< POC+PQ) =6 :PQ=PG-1 

14245 IF SL-PP<1 THEN 14280 

1425© FOR J=1 TO SL-PP 

14260 TF < POC+PQ )=TF( POC ):P0C=P0C-1 

14270 NEXT J 

14280 NEXT I 

14296 TF<1)=TF(1)+1 

14360 POC=(TF(1)-TF<2))*TF<0)+TF<1)+1 

14305 IF P0C-SL-2C1 TFEN 1435© 

14316 FOR 1=1 TO POC-SL-2 
14320 TF(P0C+1)=TF(P0C> 

14339 P0C=P0C-1 

14340 NEXT I 

14350 POC=TF<2)*TF<0)+TF(1)-1 
14355 IF POC-SL< 1 THEN 14400 
1436© FOR 1=1 TO POC-SL 
14370 ADFx (POC+l)=ADFx( PQC) 

1438© F0C=P0C-1 
14390 NEXT I 
14406 TF < SL+3 ) =-PR 
1441© ADFx<SL+l)=PRx 
14990 GOTO 2600 

15060 REM **+ N. ZNĚNA JMÉNA POLOŽKY *** 
15010 INPUT "PŘEJMENOVÁVÁN© POLOŽKA >"; S 
L 

15615 IF <SL<0)+(SL>TF<1) )+<SLOINT<SL) ) 
THEN GOSUB 37000: GOTO 15010 
15O20 INPUT "NOSE JMÉNO >";PRx 
15036 ADFx<SL)=PRx 
15996 RETURN 

16060 REM *♦* F. . ZRUŠENI POLOŽKY **♦ 
16006 IF TF(1)-1<1 THEN GOSUB 34600 :CURS 
OR 8,6:PRINT "*** ZRUŠTE DATABAZI ! ***“ 
•RETURN 

16010 INPUT “RUŠENA POLOŽKA >",SL 
16015 IF (SL<l)+(SL>TF<l))+<SLOINT<SL> ) 
THEN GOSUB 37000: GOTO 16O10 
16620 PP=0 

16625 IF SL=1 THEN 16086 

16630 FOR 1=1 TO SL-1 

16040 IF ABS(TF(I+2) )=2 THEN PP=PP+1 

16056 ICXT I 

16680 IF ABS<TF<SL+2))=1 THEN P0C=TF<1)+ 
2-PP+SL : P6=l : GOTO 16195 
16096 P0C=TF(1)+PP+1:PG=1 
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16095 IF TF<Ě»)=0 THEN 1619© 

1610© FOR 1=1 TO TF<©> 

16105 IF TF(2)-1<1 THEN 1614© 

1611© FOR J=i TO TF<2)-1 

16120 ADFx < POC ) =ADFx ( PQC+PQ ) : P0C=P0C+1 

1611© ÍCXT J 

1614© PQ=PQ+1 

1618© NEXT I 

16190 TF(2)=TF(2)-1:GQTQ 16290 
16195 IF TF ( 0 ) =0 THEN 16290 
16200 FOR 1=1 TO TF(O) 

16205 IF TF(1)-TF(2)-1<1 THEN 16280 

16210 FOR J=1 TO TF(1)-TF(2)-1 

1622© TF(POC)=TF<FOC+PQ) :P0C=F0C-1 

16230 NEXT J 

1624© PQ=P©-1 

1628© NEXT I 

16290 TF(1)=TF(1)-1 

1630© P0C=SL+2 

16305 IF (TF(1)-TF(2))*TF(0)+TF(1>-SL+1< 
1 THEN 16350 

16310 FOR 1=1 TO (TF(1)-TF(2) )*TF(0)+TFí 
1 ) -SL+1 

16320 TF ( POC ) =TF ( POC+1 ) 

16330 P0C=P0C+i 
16340 NEXT I 
1635© POC=SL 

16355 IF TF(2)*TF (0)+TF( D-SL+Kl TFEN 1 
6990 

16360 FOR 1=1 TO 7F<2)*TFÍO>+TFQ)-SL+l 
16370 ADFx ( POC )=ADFx( POC+1) 

16380 P0C=P0C+1 

16390, NEXT I 

16990 GOTO 20O0 

1700© REM *** U. . SAVÉ *+* 

17005 IF TF<0)=© THEN GOTO 36OO0 

17006 INPUT "CHRÁNIT ZAPIŠ? <rt/N) >";OPx 

17007 IF LEFTx(OPx,l)="N“ THEN PRx=",;;> 
"GOTO 1701© 

17008 IF LEFTx i OPx,l ><>“«" THEN PRINT:PR 
INT CSX ; PRINT GOTO 17006 

17009 INPUT "HESLO >",PR*CLS 

17010 GOSUB 34OO0 

17020 CURSOR 13.5: PRINT CHři* ( xTF í i " RECC 
RD.PLAY" 

17022 J=TF(0)*(TF(l)-TF(2)>+2+7F(l) 

17024 K=TF(0)*TF(2S+TF(1) 

17025 WOPEN ADf x(0J 
1703© PRINT/T PRx 
176*0 PRINT/T J 
17050 PRINT/T K 
17060 FOR 1=0 TO J 
17100 PRINT/T TF ( I ) 

17110 NEXT I 
1714© FOR I=© TO K 
17150 PRINT/T ADFx(I) 

17170 NEXT I 

17240 CLOSE 
1725© as 
1799© RETURN 

18000 REN *** 2. . LOAD *** 

18002 IF 0K=© THEN INPUT "EXISTUJÍC! DAT 
ABAZI ZRUSIT?(A/N) >“;0Px : IF L£FTx(0Px,l 
)<>"A“ THEN 18990 

18005 INPUT "JMÉNO DATABAZE Z CNT >";OPx 

18008 G0SU6 34000 

18009 CURSOR 16.5:PRINT CHRx(xTF);" PLAY 

18010 ROPEN OPx 

18011 INPUT/T PRx 

18012 IF PRx <>“ i i i THEN PRINT: INPUT ” 

HESLO? >"iOPx : CLS:IF PRxOOP 
x THEN CLOSE : GOTO 10 

18013 INPUT/T J 
18016 INPUT/T K 
18O20 FOR 1=0 TO J 
1803© INPUT/T TF< I) 

1804© NEXT I 
1805O FOR 1=0 TO K 
18060 IWHrr/T ADFx(I) 

18070 NEXT I 

1808© CLOSE 

18090 FOR 1*0 TO TF(0):IP(I)=0:NEXT I 
18095 FOR 1=3 TO TF( l)+2-.TF(I )*A8S(TF(I) 
) : NEXT I 

18100 AZ=1:OK*0:TF(3)=-TF(3) 

18110 JSx="A“:OLx=“N" 

1899© GOTO 2000 

19000 REM *** G. . .VYTVOŘENI DATABAZE *** 
19002 IF 0K=-1 THEN 19008 
19004 INPUT "EXISTUJÍCÍ DAT ABAZI ZRUŠIT? 
(A/N) >°;OPx 
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19006 IF L£FT*CGPX,1K>»A" THEN 1999© 
19008 PRINT: PRINT “CEKEJTE PROSÍM !" 
19010 FOR 1=0 TO ADF 
19020 ADFx(I)="“ 

1903© NEXT I 
19040 FOR I=0 TO NTF 
19050 TF ( I ) =0 

19060 NEXT I 

19061 FOR 1=0 TQ NZD 

19062 IP(I)=© 

19063 NEXT I 

19065 CONSOLE l,23,l,38 : aS:CURS0R 2 , 1 :C 
ONSOLE 1,23.2.36 

19070 INPUT "JMÉNO NOVE DATABAZE " 

.PRx 

19080 INPUT "POTVRĎTE VYTVOŘENI (A/N)..“ 
;OPx 

1909O IF LEFTx(0Px.1)O"A* THEN 0K*-1.G0 
TO 30 

19100 INPUT “POČET POLOŽEK DATABAZE. ..." 
;TFM> 

19101 IF (TF(1K1)+<TF( 1)<>INT(TF (i) ) ) T 
HEN GOSUB 37006: GOTO 19100 

19102 INPUT "POČET POLOŽEK FORMÁTU 2. . .“ 
;TF(2) 

19103 IF (TF(2K0>+<TF(2)OINT<TF(2>>> T 
HEN GOSUB 37800: GOTO 19102 

19104 IF < ADF-TF < 1 ) -TF ( 2 ) <6 ) + ( NTF -2-2*TF 
(1)+TF(2K0) THEN PRINT:PRINT SPC(2);KSx 
: PRINT: GOTO 1910O 

19110 ADFx(0)=pRX;PQC=0 
19120 FOR 1*1 TO TF(1> 

19130 PRINT: PRINT "PaOZKA*;I 

19140 INPUT " JMÉNO ";ADFx(I) 

19150 INPUT “ FORMÁT. . ,";TF(I+2) 

19155 IF <TF(I+2)<>l)*(TF(I+2><>2) THEN 
GOSUB 3700© GOTO 19150 
19157 IF TF(I+2)*2 THEN P0C=P0C+1 
19160 NEXT I 

19170 PRINT: INPUT "NEJíttE OPRAVY? (A/N). 
";OPx * 

1918© IF LEFTx i OPx, 1)0 "A" THEN 19270 
1919© INPUT “OPRAVOVANÁ POLOŽKA. . . " 

;SL 

19195 IF (SLOINT (SL) )+(SL<l) + (SL>TF(l) ) 
THEN GOSUB 370©0:G0T0 1919© 

19200 INPUT "ZMĚNIT JMÉNO? (A/N) " 

>OPx 

1921© IF LEFTX(0Px,1)O"A" THEN 19230 

1922© INPUT " NOVE J*£NO " 

.ADFx(SL) 

19230 INPUT “ZMĚNIT FORMÁT? (A/N) “ 

iOPx 

19240 IF LEFTx(0Px,l)O"A" THEN 19260 

1925© INPUT " NOVY FORMÁT " 

,PR 

19255 IF (PR01)*(PR<>2) THEN GOSUB 3700 
0:GOTG 1925© 

19256 IF <TF(SL+2)=2)*(PR=1) THEN POC=PO 
C-1:G0T0 19259 

19257 IF (TF(SL+2)=1)*(PR=2> THEN POC=PO 
C+l 

19258 IF ( ADF-TF ( 1 > ~POC<0 ) + ( NTF-2-2+TF ( 1 
)+POC<0> THEN PRINT: PRINT $PC<2> ;KSx : PRI 
NT: GOTO 1910© 

19259 TF(SL+2)=PR 
1926© GOTO 19170 

19270 as : CONSOLE :CURSOR 1,17:PRINT Cl, 3 
■ maaoaB NOVA DATABAZE = = == === == 

19990 TF(3)=-TF(3):TF(2)=POC:AZ=0:RETURN 
20000 REN ♦** H...AKTIVIZACE ZAZNAMU *** 
20005 IF TF(0)=O THEN GOTO 36000 
20010 FOR 1=1 TO TF(0) 

20020 IP(I)=0 
20030 NEXT I 
20990 GOTO 2000 

2100© REM *** A. .OPERACE AND *** 

210O5 IF TF(O)=0 THEN GOTO 3600© 

2101© GOSUB 3O000 
2103© FOR 1=1 TO TF (O) 

21040 IF IP(I)=0 THEN GOSUB 3100© 

21050 POOPOC+TFÍ2) :PP=PP+TF(1)-TF(2) 
21060 NEXT I 
21990 GOTO 200© 

2200© REM *** 0. . OPERACE OR *** 

22005 IF TF(0)=0 THEN GOTO 36O0© 

22010 GOSUB 3000© 

22040 FOR 1=1 TO TF(©> 

22050 IF IP(I)=1 THEN GOSUB 3100© 

2206© P0C=P0C+TF(2):PP=PP+TF(1)-TF(2) 
22070 NEXT T 
2299© GOTO 200© 

23000 REM **+ X. . .STATISTIKA **• 

23005 IF TF(0)=© THEN GOTO 3600© 

23010 INPUT "Pa02KA >“,SL 

23015 IF (SL<1)+(SL>TF(1) )+(SLOINT(SL) ) 


+(ABS(TF(SL+2) )=2) THEN GOSUB 3700©: GOTO 
2301© 

2303© INPUT “TAKÉ STANĎARTNI OOCHYLKU? ( 
A/N) >“;QPx 

23035 GOSUB 34000 
2304© PRINT ADFx(SL): PRINT 

23042 PP=© 

23043 IF SL-Kl THEN 23050 

23044 FOR 1=1 TO SL-1 

23046 IF ABS(TF(I+2))=1 THEN PP=PP+1 
23048 NEXT I 

2305© Pl=0:P2=0:P3=0:POC=TF(l)+3+PP 
23060 FOR 1=1 TO TF(O) 

23070 IF IP(I)=1 THEN 2310© 

2368© Pi=Pl+l 
2309© P2=P2+TF ( POC ) 

2310© POC=POC+T ř ( 1 ) -TF 1 2 ) 

23110 NEXT I 

2312© PRINT “ ZAZNAMU =";P1 

23125 PRINT “ SOUČET =“;P2 

23130 IF Pl=© THEN 23990 
2314© P2=P2/Pl 

23150 PRINT " PRŮMĚR =“;P2 

2316© IF LEFTxíOPx, THEN 2399© 
23165 POC=TF ( 1 ) +3+PP 
2317© FOR 1=1 TO TF(O) 

2318© IF IP(I)=1 THEN 2326-5 
23190 P3=P3+(TF<P0C)-P2r2 
23200 POC=POC+TF ( 1 ) -TF ( 2 ) 

23210 NEXT I 

23220 PRINT PRINT " STANĎARTNI ODCHYLK 
A =";SQR(P3/P1) 

23990 RETURN 

24000 REM *** Y. . .SELEKCE TISKU *** 

24065 CONSOLE 1,23,1,38=CLS:CURS0R 2,1.C 
ONSOLE 1,23,2,36 

24010 INPUT "KOLIK ZOBRAZIT POLOŽEK 

“;SL 

24011 IF (SL<0)+(SL>TF<1) )+(SLOINT(SL) ) 
THEN COSI® 37606 -GOTO 2401© 

24012 IF SL=© THEN OLX*"N" :TF(3)=ABS(TF( 
3) > -.GOTO 24096 

24G13 INPUT "DO RADKU? (A/N) 

“ ,-OLX: PRINT 

24014 IF (LEFTx(QLx,1)="A")*(SL>3> THEN 
SL=3 

24020 FOR 1*1 TO TF(1> 

24030 TF( I+2)=ABS(TF( 1+2) ) 

2404© NEXT I 

24642 FOR I*© TO 6:TS(I)=0 NEXT I 

24045 P1*0 

2405© FOR 1*1 TO SL 

24066 PRINT "CISLOM;". POLOŽKY"; 

24065 INPUT “ “ ;PR 

24066 IF (PR<l)+(LEFTx(ax,l)<>“A")»(PR< 
=P1)+(PR>TF(1) )+(PROINT(PR) ) THEN GOSUB 

37000. GOTO 24060 
24667 P1«PR 

24068 IF LEFTx(ax,lK>“A“ THEN 24074 

24069 IF PR-Kl THEN 24673 

24070 FOR J*1 TO PR-1 

24671 IF ABS(TF( J+2) )=2 THEN TS(I+3)=TS( 
I+3)+l 

24672 NEXT J 

24073 TS(I)=PR:TS(O>*TS(0>+1 

24074 TF(PR+2)*-ABS(TF(PR+2>> 

24075 IF (LEFTx(0Lx,l>O"A")#(Pl=TF(l)> 
THEN 24090 

24086 NEXT I 

24090 PRINT; INPUT "ZOBRAZIT JMÉNA POLOZE 
K? (A/N) . JSx 

24190 as : CONSOLE: CURSOR 1,17:PRJNT Cl, 3 

2499© RETURN 

30000 REM m SUBRUTINA AKTIVACE 1 ♦+» 
3001© INPUT "POLOŽKA >">SL 
30015 IF (SL<t)+(SL>TF(l) )+(SLOINT (SL) ) 
THEN GOSUB 37000: GOTO 30610 
3002© INPUT "<,> NEBO = (KTERÁ Z NICH?) 
>";OPx 

36025 IF ( LEFTx (OPx, 1 )<>">")*(LEFTx(0Px, 
1 ) O "=")*(LEFTx(OPx,l )<>'•<") THEN GOSUB 
37600: GOTO 30620 

30630 IF ABS(TF(SL+2))=1 THEN IW>UT "HOD 

NOTA >";PR:GOTO 30640 

36635 INPUT "HODNOTA >";PRx 

36040 POC=0:PP=0 

30056 FOR 1=1 TO SL 

30060 IF ABS(TF( 1+2) )=2 THEN P0C=P0C+1:G 

OTO 30080 

36070 PP=PP+1 

30©8© NEXT I 

36096 PP=TF(l)+2+PP 

3010© POC=TF( 1)+P0C 

36990 RETURN 


31600 REM *** SUBRUTINA AKTIVACE 2 *** 
31010 IF ABS(TF (SL+2) )=2 THEN 31070 
31620 IF LEFT*<0Px, 1)=**<** THEN IF PR>TF( 
PP) THEN 31110 

31630 IF LEFTx<0px,l)="=" TFCN IF PR-TF ( 
PP) TF€N 3111© 

31640 IF LEFTx(0PX/l)=“>“ THEN IF PR<TF( 
PP) THEN 31116 
31650 GOTO 31996 

31070 IF LEFTx(OPx,l )="<;“ THEN IF PRx>LE 
FTx( AOF x(POC) -LEN(PRx) ) THEN 31110 
31080 IF LEFTx(OPx,l)=“=“ THEN IF PRx=LE 
FTx(ADFx<POC) ,LEN(PR x) ) THEN 31110 
31090 IF LEFTx(OPx, !)=■>■ THEN IF PRx<LE 
FTx(AOFx(POC) , LEN ( PRx ) ) THEN 31110 
31100 GOTO 31996 
31110 IP(I)=0 : RETURN 
31990 IP(I)=1:RETURN 
32006 REM »* MAITING *** 

32610 GET lx : IF <UEFTx(lx,l)<>“ ")*(L£FT 
x(lx,l)<>-Q“) THEN 32016 
32990 RETURN 
33660 REM *** UVOĎ *** 

33065 CONSOLE = CURSOR 0,0 

33610 CSx=“ ===================== 


33020 KSx=" : 

33630 PRINT Cl, 3 CSX 

33046 FOR 1=1 TO 16:PRINT Cl, 3 KSx; : ř£KT 
I 

33650 PRINT Cl, 3 CS* 

33066 FOR 1=1 TO 6=PRINT Cl, 3 KSx; : NEXT 
I 

3367© PRINT Cl, 3 CSX; 

33686 CSx=“ " 

33096 KSx="I I" 

33160 CURSOR 12,3: PRINT CSX, 

33116 FOR 1=4 TO 11:CURS0R 12,I=PRINT KS 
X; : FEXT I 

33126 CURSOR 12, 12: PRINT CSX; 

33130 CURSOR 12, 9: PRINT CSx; 

33146 CURSOR 16,5:PRINT "DATABA2E" ; 

33156 CURSOR 16, ?. PRINT "R I D S"; 

33166 CURSOR 14,10.PRINT “V3.2 (4.8.87)* 

33170 CURSOR 15, 11: PRINT “(C) SVEHLA"; 
33186 CURSOR 15, 14. PRINT “STISKNI ?“; 
-33190 KSX=“*** KAPACITA PŘEKROČENA ! *** 

33200 PSx=“ *** PRÁZDNÁ DATABAZE ! ***“ 
33210 CSx=“ *** CHYBNY VSTUP ! ***“ 
33990 RETURN 

34000 REM *** KONSOLA HORNÍ *** 

34016 CURSOR 2,1 
34026 CONSOLE 1,16,2,36 
34036 CLS 
34996 RETURN 

35060 REM *** KONSOLA DOLNÍ *** 

35016 CURSOR 2,18 
35026 CONSOLE 18,6,2,36 
35030 CLS 
35996 RETURN 

36006 REM *** PRÁZDNÁ DATABAZE **+ 

36065 GOSUB 34006 

36010 CURSOR 5,5:PRINT PSx 

36996 RETURN 

37000 REK *** CHYBNY VSTUP *** 

37016 PRINT: PRINT SPC<5) ,CSx : PRINT 
37990 RETURN 

38006 REM *** KAPACITA PŘEKROČENA *** 
38005 GOSUB 34006 
38610 CURSOR 5,3:PRINT KSx 
38990 RETURN 

39000 REM «* OŠETŘENI SYST. CHYBY *** 

39O10 GOSUB 37000 

39990 RÉSUMÉ 

50600 CLS: FOR 1=0 TO NTF 

50001 PRINT ADfx(I)íTAB(25);IPm,TF<I> 

50065 GET IX;IF LaFTx(lx,l)=“ « THEN GOS 

UB 32000 

56067 IF LEFTx<Ix,i)=“Q" THEN 50990 
56010 NEXT I 
56990 RETURN 


Definice českého generátoru znaků 

FO60=DB E0 11 86 Cl 21 78 F0 /»#. a!xH 
F068=01 36 0© ED B0 11 C6 Cl /.O.M .t«a 
F016=01 10 00 ED B6 11 E8 Cl / .. M Xa 
F018=O1 08 66EDB0 1108C2/...M . .6 
F02O=©1 08 60 ED B6 11 29 C2 /.. .M . € 
F©28=01 08 ©0 ED B© 11 30 C2 / . . .M .06 
F030=01 18 ©0 Q> B© 11 98 C2 /...M . 6 
F038=01 08 60 ED B@ 11 8© C3 /. . M . u. 
F040=01 10 DO ED BO 11 A0 C3 /. . ,M . u. 


F048=©1 

30 

©0 

ED-BO 

11 

E8 

C3 

/.O.M .Xu 

*? 


F©50=01 

08 

00 

ED 

BO 

11 

88 

C5 

i . .M . & 



FO58=01 

10 

00 

ED 

BO 

11 

A8 

C6 

/. . M . * 

PRIKA7 

VYZNÁM 

F060=O1 

10 

00 

ED 

BO 

11 

C3 

C6 

/ . . .M ,x4 



F66B=01 

ee 

00 

ED 

BO 

11 

F0 

C6 

/ . m n* 


, . INFORMACE 0 PŘÍKAZECH 

F 070=01 

08 

00 

ED 

BO 

DB 

El 

C9 

/ . . . M iuAh 

R... 

..STAV DATABAZE 

F ©78=26 

5A 

42 

3E 

12 

22 

42 

00 

/hZB> . "B . 

C... 

..POLOŽKY DATABAZE 

FÓ80=A8 

48 

3E 

08 

08 

48 

30 

00 

/ H> . .HO. 

+LN3 

..POSUV UKAZATELE VPŘED 

F688=6A 

56 

4A 

52 

/-/> 

42 

42 

00 

/ jVJRbBB . 

-TNT 

..POSUV UKAZATELE VZAD 

Ft?9©=28 

10 

3A 

46 

42 

42 

42 

00 

/< . : FBBB . 

1 ... 

..NALEZENI ZAZNAMU 

F093=8E 

42 

02 

1E 

02 

©2 

7E 

00 

/ B ", 

S... 

..JAKO L SE ZMĚNOU 

F0AO=20 

18 

4A 

42 

62 

5C 

40 

3C 

Z .JBb\8< 

E. . . 

..ZOBRAZENI uBSAHU POLOŽKY 

F0A8=66 

1A 

02 

1E 

02 

02 

7E 

00 

/f ~. 

V... 

..JAKO E SE ZMĚNOU 

F0B0=10 

28 

52 

42 

42 

62 

5C 

©O 

/ . (RBBb\ . 

DCN3 

..2RUSENI ZAZNAMU 

F0B8=40 

2© 

18 

10 

10 

10 

38 

00 

/e ... .8. 

I... 

..VLOŽENI ZAZNAMU PŘED BEZNY 

Fí«0=28 

10 

7C 

02 

3C 

40 

3E 

00 

/( . t ,<e>. 

B... 

..PŘIDANÍ ZAZNAMU NA KONEC 

F0C8=AC 

42 

02 

3C 

46 

42 

3C 

00 

/ B . <0B< . 

PCN3 

..ROZEPSANÍ ZAZNAMU 

F0D0=4tí 

20 

1C 

20 

3C 

oo 

5C 

00 

Z8 . <“\. 



F(*D8=AE 

54 

24 

44 

44 

24 

•1E 

00 

/ TxDDx . . 

DALSJ PŘÍKAZY? (A/N) > A 

F0E6=68 

50 

5C 

62 

42 

62 

5C 

00 

,'hP\bBb\ . 

, 


F0E8=58 

24 

52 

42 

7E 

42 

42 

00 

/X*RB~BB. 

PŘIKAŽ 

VYZNÁM 

F0F0=28 

1© 

3A 

46 

©2 

02 

02 

00 

/(. :F 

— 


F0r8=28 6C 

10 

10 

10 

19 

10 

00 

/(l 

M 

..PŘIDANÍ POLOŽKY 

F 100=80 

40 

3C 

42 

7E 

02 

3C 

GO 

/ 0<B _ . < . 

N 

..PŘEJMENOVANÍ POLOŽKY 










F 

..ZRUŠENI POLOŽKY 

F108=64 54 

44 

38 

10 

10 

10 

00 

/dTD8 

U 

..ix ožení databaze na cmt 

Fll©=66 

58 

2© 

18 

04 

02 

7E 

00 

/fX . . .“. 

Z 

..ZAVEDENI DATABAZE 7 CMT 

F 118=28 

10 

7E 

20 

18 

04 

7E 

00 

/( .“ . .". 

G 

..VYTVOŘENI DATABAZE 

F 120=28 

10 

3C 

42 

ZE 

©2 

3C 

00 

/( .<B~.<. 

K 

..ZRUŠENI DATABAZE 

F1 28=52 

6A 

52 

42 

42 

42 

3C 

00 

/RjRBBBC. 

H 

. .AK1 IVIZACE ZAZNAMU 

F 130=5C 

28 

08 

08 

©8 

08 

1C 

00 

/\( 

A 

..AKT IV1ZACE - OPERACI AND 

F 138=58 

24 

52 

42 

42 

24 

18 0© 

/XxRBBx . . 

0 .... 

..AKTIV1ZACE - OPERACI OR 

F14O=20 

10 

4A 

42 

42 

62 

5C 

00 

/ JBBbV 

X 

..STATISTIKA DAT 

F 148=8© 40 

3C 

42 

42 

42 

3C 00 

/ 0<BBB< . 

Y 

..SELEKCE TISKU 

,F150=52 

4A 

42 

42 

42 

42 

3C 

©O 

/RJBBBB< . 

0 

..KONEC PRAČE S DATABAZ1 

F158=28 

10 

3C 

42 

@2 

42 

3C 

00 

/( ,<B.B<. 



F 160=38 54 

02 

02 

02 

44 

38 

00 

/8T...D8. 

«G 


:F168=O0 

00 

00 

0© 

00 

00 

00 00 

/ 




CEKEJTE PROSÍM ! 


I I 

I DATABA7E I 
1 R I D S I 
I I 


I V3.2 (4.8.1VB7) I 
I <C> SVEHLA I 


STISKNI ? 


PŘIKLAD POUŽITI 
BATAKA 7 E R 1 ii S 


- ZAVEDENI V BASICU : 

REAUY 

LOAD "RIBS-JSS(C)' 

FOUNB 'RJDS-JSS (C) ” 

LOABING "RIUS-JSSvO" 

REAUY 

RUN 

R I D S 
JSS(C)-19o7 

UEFINUVAT ČESKOU ABECEDU ? (A/N) > A 
JE NUTNÝ SOUBOR CMT: >CESKY PCG< • 
i PLAY 


I I 

I BATABAZF I 

I RIUS I 

I I 


JMÉNO NOVE DATABAZE LIBĚ 

POTVRĎTE VYTVOŘENI (A/N) A 

POČET P0L07EK DATABAZE... 3 


POČET POLOŽEK FORMÁTU 2 2 

POLOŽKA 1 

JMÉNO PŘÍJMENÍ 

FORMÁT... 2 

P0LU2KA 2 

JMÉNO JMÉNO 

FORMÁT... 1 

POLOŽKA 3 

JMÉNO TELEFON 

FORMÁT... 1 


NEJAKE OPRAVY? (A/N).. A 

OPRAVOVANÁ POLOŽKA 2 

ZMĚNIT JMÉNO? (A/W) N 

ZMĚNIT FORMÁT? (A/N) A 

NOVY F0RMA1 2 

NEJAKE OPRAVY? (A/N) N 

*C 

1. PŘÍJMENÍ FORMA! = 2 

2. JMÉNO FORMÁT = 2 

3. TELEFON FORMÁT = 1 


DATABAZE ! LIDE 
7AZNAHU : O 
POLOŽEK : 3 

BEZNY ZAZNAM i 0. 


AKTIVNÍCH ZAZNAMU : O 

.v \ 


KOLIK ZOBRAZIT POLOŽEK 3 

DO RADKU? (A/N) A 

ČÍSLO l.POLO/KY ? 

CISI.O 7.PUL0ZKY... 1 

CISLU 3 .POLOŽKY 3 


ZOBRAZIT JMÉNA POLOŽEK? (A/N)... A 


I V3.2 (4.8.1987) I 
I (C) SVE.Hl A 1 


STISKNI ? 


mikroelektronika 59 


1. PŘÍJMENÍ ) KRÁTKÁ 

2. JHENO > JANA 
3- TELEFON > 3271 

*B 

1. rRJJHENl ) 1 VÁNIC 

2. JMÉNO > JOSEF 

3. TELEFON > 4132 

*- 

O KOLIK > 3 

JMÉNO PŘÍJMENÍ TELEFON 

JANA KRÁTKÁ 3271 

*p 

KOIIK > 999 

JHENO PRIJHENI TELEFON 

JANA KRÁTKÁ 3271 

JOSEF IVANIC 4132 

*F 

CISLU POLOŽKY > 1 
OBSAH = IVANIC 
*V 

CISL.O PULU/KY > 3 


KOL IK > 1 

DATABAZE : LIDE 

ZAZNAMU í 2 

POLOŽEK i 3 - 

BE7NY ZA2NAM : 2. 

AKTIVNÍCH ZA/NAHU : 2 

*- 

O KOLIK > 2 

JMFNO PŘÍJMENÍ TELEFON 

JANA KRÁTKÁ 3271 

*P 

KOLIK > 10 

JHENO PŘÍJMENÍ TELEFON 

JANA KRÁTKÁ 3271 

PETR HANN 1427 

*X 

POLOŽKA > 3 

TAKÉ STANDART NI ODCHYLKU? (A/N) ) A 

TELEFON 

ZAZNAMU = 2 

SOUČET * 4Ó98 

PRŮMĚR - 2349 


EXISTUJÍC! DATABAZI ZRUŠIT? (A/N) ) A 
JMFNO DATABAZE 2 CMT > LIDE 

i PLAY 

HESLO? > SHARP 

DATABAZE i LIDE 
ZAZNAMU : 2 
POLOŽEK : 3 

BEZNY ZA2NAM : 1. 


AKTIVNÍCH 7AZNAMU : 2 


KOLIK ZOBRAZIT POLOŽEK ....3 

DO RADKU? <A/N) N 

CIS10 1. POLOŽKY 1 

CISLU 2. POLOŽKY j2 

CISLU 3. POLOŽKY 3 


ZOBRAZIT JMÉNA POLOŽEK? (A/N)... A 


PŘEDCHÁZEJÍCÍ POLOŽKA > 1 
JMÉNO NOVE POLOŽKY > VEK 
FDRHA1 NOVE POLOŽKY ) 1 

DATABAZE í LIDE 
ZAZNAMU : 2 
POLOŽEK : 4 

BEZNY 7A2NAM : 1. 


AKTIVNÍCH 7AZNAMU r 2 


*B 


*k 


*L 


*R 


OBSAH » 4132 
NOVY OBSAH > 4232 


1. PŘÍJMENÍ > HANN 

2. JMÉNO > PETR 

3. TELEFON ) 1427 


DATABAZE : LIDE 
ZAZNAMU : 3 
POLUZEK : 3 

BFZNY IAZNAM : 3. 

AKTIVNÍCH 7AZNAMU : 3 


POLOŽKA > ? 
OBSAH > JANA 


JMÉNO 


PRIJHENI TELEFON 


JANA 


KRÁTKÁ 


3271 


«S 


POLOŽKA > 3 
OBSAH > 4232 

JMÉNO PŘÍJMENÍ TELEFON 
JOSEF IVANIC 4232 

NOVY OBSAH > 4132 


DATABAZE : LIDE 
ZAZNAMU : 3 
FOLOZFK : 3 

BFZNY 2AZNAM : 2. 

AKTIVNÍCH ZAZNAát : 3 


60 


mikroelektronika 


«A 


STANDARTN1 ODCHYLKA - 92? 


POLOŽKA > 1 

<»> NEBO * (KTERÁ Z. NICH?) > * 
HODNOTA > TOMAN 

DATABAZE : LIDE 
ZAZNAMU : 2 
POLUZEK : 3 


*ř 


BEZNY ZAZNAM 


: 2 . 


*0 


AKTIVNÍCH 2A2NAHU : O 


POLOŽKA > 3 

<»> NEBO * (KTERÁ Z NICH?) > < 
HODNOTA > 2000 

DATABAZE : LIDF. 

ZAZNAMU : ? 

POLOŽEK : 3 


BEZNY ZAZNAM 


: 2 . 


*P 


AKTIVNÍCH 7AZNAMU 5 1 


KOLIK > 3 

JMFNO PRIJHENI TELEFON 


*H 


*U 


*N 


*C 


*P 


PETR 

HANN 

1427 

DATABAZE 

: LIDE 


ZAZNAMU 

: 2 


POLOŽEK 

: 3 


BEZNY ZAZNAM 

; 2- 

AKTIVNÍCH ZAZNAMU 

: 2 


CHRÁNIT ZAPIŠ? (A/N) > A 
HESLO > SHARP 


RUŠENA POLOŽKA > 4 

DATABAZE - LÍBE 
ZAZNAMU : 2 
POLUZEK : 3 

BFZNY ZAZNAM : 1. 

AKTIVNÍCH ZAZNAMU : 2 


PRF JME NUVAVANA POLOŽKA > 3 
HOVĚ JMÉNO > JH. 


1. PŘÍJMENÍ 

2. VEK 

3. JM. 


KOLIK > 3 


FORMÁT = 2 
FORMÁT = 1 
FORMÁT - 2 


1. PRIJHENI > KRÁTKÁ 

2. VEK > O 

3. JM. > JANA 


*K 


1. PŘÍJMENÍ > HANN 


2. VEK > 0 


3.JM. > PF.TR 


POTVRĎTE! (A/íO > A 

I 

I 

1 DATABAZE 

I 

I R I D S 

1 

I 

I 

I V3.2 (4.8. 1987) 

I 

I (C) SVEHLA 

I 


STISKNI ? 


i. RECORD.PLAY 


*0 


READY 

**************************************** 



Jan Krejčí, BouřUova 1104, 198 00 Praha 9 



Pro vytvoření programu Skicák mne 
inspirovalo několik skutečnosti. Pře- 
devším jsem potřeboval pro některé 
své programy dokonale graficky pro- 
vedené obrazovky buď jako úvodni 
obrazovku, nebo funkční část progra- 
mu (například mapy, plánky a podob- 
ně). Dále to byl měj kolega mg. Líbeš, 
který vytvářel ob r azo vky tak, že si 
nejprve připravil a dokon al e promyslel 
svůj návrh mimo počítač, například na 
papíře a ten pak pomocí milimetro- 
vého papíru rozložil na jednotlivé bo- 
dy, tak jako je tvořena obrazovka. Tyto 
body pak přenesl jako jednotlivé bajty 
do basicového programu (do DATA), 
vytiskl obrazovku, nahrál ji a tak s nf 
bylo možné pracovat dál. Tato metoda 
se mi zdála jako jedna z nejdokonalej- 
ších, ale tak pracná, že jsem se rozhodl 
nějakým způsobem ji ulehčit. Samo- 
zřejmě, že nejdokonalejši by bylo roz- 
ložit signál z televizní kamery, vytvořit 
videodigitizěr, anebo si jej koupit, či 
použít jinou mechanickou metodu, ne- 
bo dokonalejší programový prostře- 
dek. Ale v té době jsem měl k dispozici 
pouze programy, které pracovaly na 
obrazovce dosti hrubě a obraz vytváře- 
ly pomoci čar a obrazců, nebo 
i přímým kreslením na obrazovku po- 
"mocí světelného pera nebo myši. 


Začal jsem proto pracovat na progra- 
mu, který by využíval shora uvedenou 
metodu s rozložením předem připrave- 
ného návrhu na jednotlivé body a jejich 
systematickým přenesením do paměti 
počítače. Pro rozklad předlohy se mí 
nejlépe osvědčil průhledný milimetrový 
papír se zdůrazněným rastrem 8 mm, 
tedy osm bodů. Používám formát A4, 
který je svými rozměry optimální pro 
rozklad kreseb, tisků i fotografií. Prů- 
svitný papír přiložím na kresbu, umís- 
tím do zvolené polohy a odečítám 
jednotlivé osmice bodů (v podstatě 
bajty) ve zdůrazněném čtverečku 8x8 
bodů a vkládám je pomocí funkce 
INPUT programu Skicák do paměti 
Spectra. Postupuji systematicky od 
levého horního rohu obrázku, po jed- 
notlivých řádcích až k pravému dol- 
nímu rohu. 

Po vložení všech částí programu do 
paměti se .program spustí příkazem 
RUN. To platí i pro případy při přeruše- 
ní nebo vypadnutí z programu. 


Hlavní nabídka („menu") 

Spustíme-H program, ocitneme se 
v hlavní nabídce (menu). Na obrazovce 
se objeví název programu, čisio jeho 
verze a seznam funkcí nábídky 
(v rámečku). Funkcí je celkem pět 
Označeny jsou vždy číslem a názvem. 
K jejich vyvolání je třeba stisknout 
příslušnou číslici. 

1 — EDITOR 

Musíme zvolit jednu ze tří pracovních 
paměti. Možnost práce se třemi „obra- 


zovkami" oceníme při modifikaci již 
hotových obrazovek, při jejich míchání 
a prolínání. Po zvolení čísla pracovní 
paměti se dostaneme do EDITORu. Ten 
bude popsán samostatně v následující 
kapitole. 

2 — LIST 

Tato funkce je určena pro prohlížení 
obsahu jednotlivých obrazovek. Stis- 
kem libovolné další klávesy (kromě 
klávesy „Q") listujeme jednotlivými 
obrazovkami, jejichž číslo bliká vždy 
v pravém horním rohu obrazovky. 
Návrat do hlavní nabídky je klávesou 


3 — L0AD 

Umožní přečíst data z mgf pásku do 
jedné ze tří pracovních obrazovek. 
Zvolená obrazovka se informativně zo- 
brazí. Návrat do hlavní nabídky je 
automatický. 

4 — SAVÉ 

Na mgf pásek bude podle volby zazna- 
menán obsah jedné ze tří obrazovek 
(oblastí paměti). 


Obrazovka 

Od adresy 

Délka 

1 

40000 

6912 

2 

46912 

6912 

3 

53824 

6912 


Z toho vyplývá, že při nahrání do 
obrazovky je nutné uložení blíže speci- 
fikovat, nebo použít příkazu SCREEN& 
Při vyvolání se zobrazí informativně 
zvolená obrazovka. Návrat do hlavní 
nabídky je automatický. 


5 — HELP 

Funkce popisuje vlastnosti povelů EDI- 
TORU v případě, že ztratíte orientaci při 
obsluze programu. Postrádá pouze 
popis vedlejší funkce kurzorových 
kláves EDITORu. Ta bude popsána 
v následující části. Návrat do hlavní 
nabídky je automatický. 

Popis EDITORu 

Klávesou „1“ z hlavní nabídky a po 
volbě pracovní obrazovky se do- 
stáváme do EDITORu — nositele myš- 
lenky programu. Slouží k přenášení 
grafické informace z připravené před- 
lohy a k další úpravě obrazu pomocí 
několika povelů. 

Obrazovka je rozdělena do dvou 
částí. Ve spodních dvou řádcích (v 
editační zóně) je nabídka povelů EDI- 
TORU a souřadnice kurzoru. Tím může- 
me pohybovat pomocí kurzorových 
kláves 5, 6, 7, 8 po zbývající, horní části 
obrazovky. Povely aktivujeme stiskem 
počátečního inverzně zdůrazněného 
znaku na klávesnici počítače. Destruk- 
tivně působící povely, při kterých do- 
chází k podstatným a nevratným 
změnám na obrazovce, voláme součas- 
ným stiskem kláves znaku a kláves 
CAPS SHIFT nebo SYMBOL SHIFT. 

Program umožňuje práci v celém 
rozsahu obrazovky (192 bodů — 24 
řádků). Dva řádky jsou většinou skryty. 
Objeví se až po najeti kurzoru do 
zmíněné oblasti. Blikající kurzor vyme- 
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zuje oblast pro vstup grafických infor- 
mací — oblast 8x8 bodů. Je to 
v podstatě běžná tisková pozice, kterou 
dále budeme nazývat znakovka. 

Kurzorové klávesy mohou plnit ještě 
jednu pomocnou funkci. Při stisku 
kurzorové klávesy (5, 6, 7, 8) zároveň 
s klávesou SYMBOL SHIFT dojde 
k překopírování znakovky z místa kur- 
zoru na vedlejší pozici určenou stisknu- 
tou kurzorovou klávesou. Tato funkce 
není v programu nikde uvedena, ani ve 
funkci HELP hlavní nabídky. 

Popis povelů EDITORu 

INPUT 

Hlavní povel, kterým přenášíme in- 
formace z předlohy několika způsoby. 

Stiskem pouhé klávesy „1“ vstou- 
píme do grafického INPUTu. Uprostřed 
obrazovky se nám zobrazí osmkrát 
zvětšená znakovka, na které je kurzor. 
Oblasti PAPER jsou vyznačeny znakem 
„O" a oblasti INK tmavou plnou ma- 
kovkou. Při invertovaném obrazu je to 
obráceně. V editační zóně objeví 
nová nabídka s komentářem. Kurzo- 
rem ve zvětšené znakovce můžeme 
pohybovat pomocí kurzorových kláves. 
Klávesou „0“ měníme pod kurzorem 
oblast z INK na PAPER a obráceně. 
Povel CLS plní dvě funkce, prostým 
stiskem „C“ se obnoví původní grafická 
informace ve znakovce, nebo se sou- 
časným stiskem CAPS SHIFT se celá 
znakovka vymaže. 

Povelem „Q“ — QUIT opouštíme 
zadávání na dané pozici a vracíme se 
buď do editoru, nebo pokračujeme 
v plnění znakovky vpravo od současné 
pozice, či na dalším řádku, pokud jsme 
plnili poslední tiskovou pozici na před- 
chozím řádku. 

Druhou variantu povelu INPUT vyvo- 
láme stiskem „f* současně s CAPS 
SHIFT. V tomto případě budeme 
každou tiskovou pozici, na které je 
kurzor, plnit po jednotlivých bajtech 

— osmkrát zadáme hodnotu. Při 
vkládání jednotlivých hodnot je zobra- 
zena také nabídka variant vkládání. 
Můžeme totiž hodnoty zadávat ve třech 
číselných soustavách, nebo vytisknout 
na pozici kurzoru znak, nebo celou 
pozici vyplnit jednou hodnotou. Máme 
také možnost se vrátit k zadávání od 
prvního bajtu. Při vložení prázdného 
řetězce ukončeném ENTER vynecháme 
jeden bajt. Ten zůstává nezměněn. 
Takovýmto způsobem je možné měnit 
ve znakovce pouze jeden nebo několik 
bajtů. Způsob zadávání určíme prvním 
znakem ve vkládaném řetězci. Nabídka 
těchto znaků je v prvním editačním řád- 
ku. Návrat z tohoto typu povelu je auto- 
matický. 

Podobným způsobem, jako tyto dvě 
varianty povelu INPUT, pracují i pro- 
gramy pro vytváření nových znakových 
souborů (ASCII, UDG), například TY- 
POGRAPH nebo 4D UDG a pod. Nic 
nám nebráni použít program SKICÁK 
i tímto způsobem, stačí si uvědomit, 
kde jsou v paměti uloženy jednotlivé 
obrazovky. Tam by se ukládaly i nově 
vytvořené znakové soubory. Po vytvo- 
ření by je bylo nutné přemístit na 
místa v paměti podle našeho záměru 
a změnit příslušné systémové proměn- 
né, pro ASCII proměnnou CHARS 

— 23606/7 a pro UDG proměnnou 
UDG — 23675/6. 
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MEM 

Funkce usnadňuje přenos a „množe- 
ní" stejných znakových pozic na obra- 
zovce. Stiskem klávesy „M" se součas- 
ným CAPS SHIFT zaznamenáme zna- 
kovku pod kurzorem do mezipaměti. 
Vyvolat na pozici kurzoru ji pak může- 
me kolikrát chceme stiskem kláves „M“ 
a SYMBOL SHIFT. 


Další funkce pracují s celou obrazov- 
kou a jsou určeny pro úpravu větších 
částí nebo celých obrazovek. 

BARVA 

Vyvoláním aktivujeme novou nabíd- 
ku, která nám nabízí tři možností. 
Změnit INK nebo PAPER v celém 
obraze, nebo celou obrazovku inverto- 
vat — INV. Návrat do EDITORu je 
automatický. 

COPY 

Provede kopii obrazovky na tiskárně 
' (ZX PRINT a jeho ekvivalenty). Kopíruje 
však všech 24 řádek. 


DEL 

Funkce DELETE je z nejdestruktiv- 
nějších. Má dvě podoby. První, vyvo- 
lávaná stiskem kláves „D“ současně 
s CAPS SHIFT, maže oblast Display 
filé, tj. oblast paměti, která určuje, kde 
je INK a kde PAPER (prvních 6144 
bajtů obrazovky). Druhá, aktivovaná 
stiskem kláves „D“ a „SYMBOL 
SHIFT, maže oblast atributů, tj. oblast, 
která určuje barvy a další vlastnosti 
znakových pozic (posledních 768 bajtů 
obrazovky). 

EXCH — EXCHANGE 

Povel, který umožňuje změnu pra- 
covní obrazovky. 

NEW 

Nejdestruktivnější, stiskem klávesy 
„N“ současně s CAPS SHIFT se maže 
celá pracovní obrazovka. 

OVER 

Tato funkce smíchá obsahy dvou 
obrazovek — pracovní se zvolenou. 




2800! 



znakovkách posouvá oblast atributů. 
Ve všech případech jde o tzv. destruk- 
tivní scroli, to znamená, že co je mimo 
obrazovku, je vymazáno. 

Funkce spolu s povelem OVER nám 
dovolí přesné rozmístit a zkombinovat 
vytvořená díla. 


obrazovkami od adresy 60 736. Jsou to 
asi 4kB paměti, které mohou být 
využity pro další rozšíření a vylepšení 
programu. Pro rozšíření basicového 
programu není již místo. Pro jeho 
správnou funkci je nutné vypustit po- 
známky v řádcích REM. 



3 320) 3 
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GOSUB 3312 



2xUSR 3190 
I GOSUB 3232 




GOSUB 3312 



GOSUB 3232 


tiskni novou I 
polohu kurzoni 


QUIT 

Funkce návratu do hlavní nabídky. 

ROLL 

Po aktivaci stiskem klávesy „R“ mů- 
žeme pomocí kurzorových kláves po- 
hybovat obrazovkou do všech směrů 
a to třemi způsoby. Samotným stiskem 
některé kurzorové klávesy se posouvá 
(scrotluje) display fite po jednom bodu. 
Se současným stiskem CAPS SHIFT se 
posouvá display filé daným směrem, 
ale po jednom znaku {osmi bodech). 
Při stisku se SYMBOL SHIFT se po 


I 


'test 

kláves 

S&6.78, 


posuf> 

kurzor 


test 

klávesy 

0 


test 
klávesy 
C 


test 
klávesy 
0 


f tiskni 
navrženou 
znakovku 



/uráčí 
/ hod 
/ tisk 1 

ií typu / 
noty / 
bajtu / 



zvětši • 
počítadlo 



Popis struktury a funkce 
programu 

Uloženi v paměti 

Program Skicák je v paměti počítače 
uložen ve třech částech — basicový 
program, strojové rutiny a paměť obra- 
zovek, vlastně dáte programu. Uložení 
jednotlivých částí je patrné z obr. 1. 
Podstatnou část paměti zabírá Basico- 
vý program, podporovaný ve své funkci 
rutinami ve strojovém kódu, které jsou 
umístěny na konci paměti před UDG. 
Obrazovky jsou uloženy těsně za hasi- 
čovým programem asi uprostřed pa- 
měti RAM. Jediná volná paměť je za 


Gjp 

GOTO 1 

■ Y 


Struktura a funkce 
programu 


Funkční diagramy programu Skicák 
. ou na str. 62, kde je část hlavní 
nabídky a na str. 63, kde je popsána 
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stručné funkce EDfTORu. V diagra- 
mech jsou orientačně uvedena čísla 
řádků. Program Skicák nahrajeme 
s autostartem od řádky 6000 a strojový 
kód uložfme na pásku za něj. V řádcích 
od 7000 je v programu uložena infor- 
mace o rozmístění českých znaků 
v UDG. 

Struktura a funkce EDITORu 

EDITOR — funkce „1“ hlavní nabídky 

— je uložen mezí řádky 2800 a 5000. 
Jeho grafické schéma je na str. 63. 
Jedná se o podobnou strukturu, jako 
v případě hlavní nabídky, je zde ale 
i nejsložitější problém programu 

— pohyb kurzoru po obrazovce 
a vyhodnocení jeho pozic v případě 
práce na nejnižších dvou řádcích obra- 
zovky. To vše má za úkol podprogram 
od řádku 3408, který je opakovaně 
volán po testu klávesnice na volaný 
povel. Další, vnořené podprogramy 
tohoto podprogramu, jsou využívány 
také některými funkcemi editoru (IN- 
PUT a MEM). 


Popis použitých strojových rutin, 
rutin v ROM a neo b vyklý ch vlastnosti 
BASICu. 

Rutiny strojového kódu začínají od 
adresy 64 599. První je rutina COPY 

— 24 řádků, využívá podprogramu 
ROM 3762. Další rutina užívá povel 
ROLL pro posuv display filé o znak dolů 

— 64609. Rutina 64682 posouvá obě 
části obrazovky o znak dolů. Následu- 
jících sedm rutin je použ i to ze zn á m ého 
programu SUPERCODE. První dvě 
(64744 a 64756) slouží pro přenesení 
obsahu viditelné obrazovky do pracov- 
ní paměti a naopak. Tyto rutiny využíva- 
jí skoro všechny povely a funkce 
programu. Rutiny 64784 a 64828 ne- 
jsou využity, zůstaly v paměti po úpra- 
vách předchozích pracovních verzí. 
První vymění obsahy obrazovky a pra- 
covní paměti a druhá naplní určený 
obdélník v obrazovce jedním znakem. 
Následující tři podprogramy používá 
funkce BARVA. 64858 mění INK 
v celém obraze, 64883 mění PAPER 
v celém obraze a 64809 provede inverzi 
obrazovky. Pak následuje rutina funkce 
OVER — 64914 a za ní rutiny pro funkci 
ROLL. 64935 posune Display filé o znak 
vlevo, 64956 vpravo, 64978 posune 
Display filé o bod vlevo, 64995 o bod 
vpravo, 65012 o bod nahoru a 65168 
o bod dolů. Posuv atributů řídí rutiny 

— 65103 vlevo, 65125 vpravo a 65147 
nahoru. 

Další rutiny jsou pro mazání jednotli- 
vých oblastí obrazovky — 653% maže 
atributy a 65342 maže Display filé. Od 
adresy 65368 začíná uživatelská grafika 
se znaky české abecedy (viz řádek 
7000). 

Program používá ve své funkci nejen 
těchto rutin, ale i některé programy 
ROM a změny systémových proměn- 
ných, ale také v manuálu nepopsané 
funkce Basicu pro tisk v editační zóně 
(řádek 3236). Pro mazání editační zóny 
volá rutinu 3438, pro změnu barvy 
editační zóny mění systémovou pro- 
měnnou BORDCR — 23624, pro změnu 
počtu editačních řádků mění systémo- 
vou proměnnou DF_SZ — 23659 a pro 
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scroll obrazovky nahoru o řádek volá 
rutiny 3190 nebo 3582. 

Náměty pro další vylepšení 
a razšffení programu Skicák 

Každý program, tak jako jiná /lila 
lidského intelektu a rukou, je možné 
dotvořit — zlepšit zjednodušit a „po- 
lidštit". Program SKICÁK v. 1.0 není 
v tomto ohledu žádná výjimka, zdá se 
mi, že spíše naopak. Mým prapůvod- 
ním cílem bylo dovést program k jakés 
takés dokonalosti vytvořením grafic- 
kého editoru typu GEM a ovládat jej 
joystickem, myší nebo světelným pe- 
rem. Ovšem člověk míní a věci se mění. 
Objevil se program ART STUDIO a tak 
jsem skromně ustoupil a zjednodušil 
svůj prográmek tak, aby byl i vedle 
tohoto „velikána" užiteěný a alespoň 
částečně doplnil některé jeho funkce. 
Rád bych však v této části upozornil na 
jisté slabiny a rezervy programu. 
V první řadě postrádá místo pro rozší- 
ření BASICu. To by se dalo řešit buď 
posunutím obrazovek směrem ke konci 
paměti, anebo využitím prázdného mí- 
sta nad nimi a převedením některé 
části BASICu do strojového kódu, na- 
příklad řízení kurzoru. BASIC také 
můžeme mírně „zahustit" úpravou jeho 
struktury — vypuštěním poznámek, 
nebo vytvořením podprogramů při 
několikerém opakování operací (viz 
řádky 114, 116, 118 — test klávesnice). 
Také zmenšení počtu řádků a využití 
funkce VAL pro ukládání celočíselných 


proměnných by uvolnilo nějaký pro- 
stor. Ve funkci se dá program zdokona- 
lit především v práci s barvami. Zvolený 
tisk kurzoru (transparentní obarvení 
INK8, PAPER8 na řádcích 3432 až 
3448) se projeví zejména při zpraco- 
vávání obrazovek s mnohobarevnými, 
blikajícími a zdůrazněnými plochami; 
kurzoF nám bude na viditelné obrazov- 
ce v těchto místech rušit FLASH 
a BRIGHT. Při nejbližšfm dalším vyvo- 
lání obrazu z pamětí se však obraz 
obnoví v původním stavu. Zde by bylo 
vhodné program zdokonalit tak, aby 
testoval hodnoty barev před umístěním 
kurzoru a navracel je do původního 
stavu po jeho dalším pohybu. Rovněž 
by stálo za to doplnit program vhodnou 
rutinou pro obsloužení chyb a přeruše- 
ní, té by se dalo využít i při návratu 
z jednotlivých funkcí a do hlavní nabíd- 
ky. Odpadly by tak testy klávesy „Q". 

*** Skicák Ul.0 *** 


1 - EDITOR 
a - LIST 

3 - LORD 

4 - SRUE 
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1 REM * PROGRAM SKICAK * 

2 POKE 33624,56: CLS 

3 DIM m (8) : LET 02=156: LET 


au =40000 

4 LET X 1=0 : 
=0: LET rop=0: 
LET 01=64: 


LET y 1=0 : LET zve 
LET Sk=0: LET S* = 
LET POT=0: LET X= 


0 - LET y =0 : LET kurz =22528+X +y *3 
2: LET atr=ATTR <x,y) 

5 REM Í»enut „ ... 

6 CLS : PRINT AT 7,10; “1 - ED 

JTQp" 

15 PRINT ňT 0,10; “2 - LIST" 

16 PRINT AT 11,10; "3 - LORD 

17 PRINT ňT 13,10; "4 - SAUE 

18 PRINT flT 2,4;"*** S k i C á 

fc 01.0 ***" 

10 PRINT ttl;flT 0,12;"© 1086" 

20 PRINT flT 20,6;"*** <Jan Krej 

21 *PRINT flT 15,10; "5 - HELP" 

22 PLOT 27,27: ORAU 0,115: DRA 
U 100,0: DRflU 0,-115: DRAW -100, 
0 

30 IF INKEY*=“1" THEN GO TO 28 


00 


•3" THEN GO SUB 3 


32 IF INKEY *s 
268: GO TO 6 

34 IF INKEY*="4" THEN GO SUB 3 
GO TO 6 

IF INKEY *="2" THEN GO TO 10 


256 
36 

0 

38 IF INKEY* 

00 


•5“ THEN GO TO 50 


40 60 TO 30 
100 REM LIST 

114 LET 02=156: LET Ran =40000: 
60 SUB 3312: PRINT FLASH 1; BRIG 
HT 1; AT 4,28; "1": PAUSE 0: IF IN 
KEY*="q" OR INKEY*=“0" THEN GO T 
O 2 

116 LET 02=183: LET Raa=46912: 
GO SUB 3312: PRINT FLASH 1; BRIG 
HT 1; flT 4,28; "2": PRUSE 0: IF IN 
KEY *=“q" OR INKEY *="G“ THEN GO T 
O 2 

118 'fcET 02=210: LET Rap =53824: 
GO SUB 3312: PRINT FLASH 1; BRIG 
HT 1; AT 4,28; "3": PAUSE 0: IF IN 
KEYS=“q" OR INKEY *= "O" THEN GO T 
O 2 

120 GO TO 114 
2800 REM EDITOR 
2810 CLS : GO SUB 3364 
2820 GO SUB 3232 
2830 GO SUB 3600 

2840 IF INKEY*=”I" THEN GO TO 30 
00: LET X =x +1 

2844 IF INKEY *=" r " THEN GO SUB 3 

620 : GO TO 2820 

2846 IF INKEY * =" i " THEN GO TO 40 
00: LET X=X *1 

2850 IF INKEY*=“0" THEN GO SUB 3 
384 

2855 IF INKEY* Vc " THEN GO SUB 3 
312: RANDOMIZE USR 64599: GO SUB 
3308. GO SUB 3232 
2860 IF INKEY * = "e " THEN GO SUB 3 
364: GO SUB 3232 

2864 IF INKEY *="M" THEN GO SUB 3 
800 

2868 IF INKEY *=" . " THEN GO SUB 3 
810 

2870 IF INKEY *="b" THEN GO SUB 3 
320 

2880 IF INKEY *="N" THEN GO SUB 3 
404 , 

2882 IF INKEY *=CHR* 205 THEN 60 
SUB 3312: RANDOMIZE USR 65326: G 
O SUB 3308: GO SUB 3232 
2884 IF INKEY* ="D" THEN GO SUB 3 
312: RANDOMIZE USR 65342: GO 5UB 
3308: GO SUB 3232 
2890 IF INKEY *="q" THEN GO TO 1 
2900 IF INKEY*=" ( " THEN LET fcan = 
1: GO SUB 3524: GO SUB 3460: GO 
SUB 3500 

2910 IF INKEY *="JÍ" THEN LET kan = 
-1: GO SUB 3532: GO SUB 3460: 

SUB 3500 

2920 IF INKEY *="&" THEN LET kan = 
32 : GO SUB 3460 : GO SUB 3480 : 

SUB 3540: GO SUB 3S00: 

THEN LET y=21: LET rop=0: GO SU 
B 3312: GO SUB 3232: LET Z\e=0 
2930 IF INKEY * = " " THEN GO SUB 3 
492: LET kaa=-32: GO SUB 3460: G 
O SUB 3516: GO SUB 3500 
2940 GO SUB 3408: GO TO 2830 
3000 REM Bnput 
3002 GO SUB 3460 
3004 FOR i =0 TO 1792 STEP 256 
3008 BEEP 0.05,1/256 v _ 

3012 INPUT flT 0,2; "Bap lř> ;E-hex ; B 
in;H-znak;Stop";AT 1,2; "zadáváš 
byte č. "; (i/256+1) ; AT 1,21; LIN 
E s* 

3016 IF S*=”S“ OR SS="S" THEN LE 
T i =0 : GO TO 3000 
3020 IF £*=”" THEN GO TO 3060 
3024 IF S*(1)="Z" OR S*íl)="Z" T 
HEN GO SUB 3116: GO TO 3064 
3028 IF S*(l)="tt" THEN GO SUB 32 
08: GO TO 3052 

3032 IF S*(l) ="*" THEN PRINT AT 
y+(l ANO por=l)+(2 AND por=2),x; 
$-* (2) : LET kaa=0: GO SUB 3460: G 
O SUB 3500: GO TO 3064 
3036 IF s $ (1) ="B“ OR S*(l)="b- T 
HEN GO SUB 3200: GO TO 3052 
3040 IF CODE S*>=58 OR CODE S*< = 
47 THEN PRINT ttl;AT 0,1; "Spatně 
zapsaný znak t ! * " BEEP 8.8,20: 
GO TO 3012 

3044 IF UAL S S >255 THEN PRINT »1 


GO 


GO 
IF zve =1 


;RT 0, l; "Při ti* velké Číslo H!" 

: BEEP 0.2,24: BEEP 0.4,20: GO T 
O 3012 

3048 LET wej=UAL S* 

3052 IF je j >255 THEN . PRINT #1;AT 
0 , 1; Pří lil velké číslo !!•": B 
EEP 0.8,20: GO TO 3012 
3056 POKE 16384 +abc+x + íy+por-yy) 
*32+i,wej: POKE Ran *a bc +x + (y +po r 
+rop-yy) *32+i ,«e j 
3060 NEXT i 

3064 FOR U =0 TO 8: BEEP 0.02,4+U 
: NEXT o: PAUSE 0.5 
3068 PRINT #1;AT 0,1; "Pozice kur 
zořu x=";x;" y=";y+por 
3072 PRINT #1; AT 1,1; "Chceš pokr 
ačovat v zápisu fl/N 7" 

3076 IF INKEY *=“n" THEN RANDOMIZ 
E USR 3438: BEEP 0.08,3: BEEP 0. 
09,10: GO TO 2820 

3080 IF INKEY * = "a " THEN GO SUB 3 
100: GO TO 3092 
3084 GO TO 3072 
3088 LET x=x + l 

3092 FOR w=8 TO 0 STEP -1: BEEP 
0.01 ,RND*10-W : NEXT m 
3098 PRINT BRIGHT 1; FLRSH 1; OU 
ER l; PAPER 8; INK 8; AT y+sk*por 
, X; " ": PRINT OUER 1; INK 8; PAP 
ER 8; AT y+sk+por-(l AND x=0)-(21 
AND X =31 AND y =21) , X -1+ (32 AND 
X =0) - (21 AND X =31 AND y=21) ; " ": 
GO TO 3004 

3100 IF x=31 AND PO r =2 THEN LET 
X =0 : LET y =0 : LET fOP=0: LET por 
=0: LET a bc =0 : LET yy=0: 60 SUB 
3312: GO SUB 3232: RETURN 
3104 IF x =31 AND y+rop>=21 THEN 
LET x =0 : GO SUB 3284 : RETURN 
3108 IF x=31 AND y*rop<21 THEN L 
ET x =0 : LET y=y+l: RETURN 
3112 GO TO 3088 

3116 IF S*i2 TO ) =“" THEN RETURN 

3118 IF UAL s * (2 TO ) >255 THEN R 
ETURN 

3120 FOR e =0 TO 1792 STEP 256 
3124 POKE 163S4+abC+X+ (y +POf -yy ) 
*32 +e , UAL s * (2 TO ) . POKE Ran+ab 
c+x + (y +por+rop -yy ) *32+e ,UAL s*<2 
TO ) 

3128 NEXT e : RETURN 
3200 LET we j=UAL ("BIN "+S*i2 TO 
LEN S*) ) 

3204 PRINT #1;AT 0,1;" Decinálně 
" ; we j : PRUSE 20: RETURN 
3208 LET «ej=0: LET kruh=0 
3212 FOR W=LEN S* TO 2 STEP -1 
3216 LET we j=wé j+ l (CODE S*(w)-48 
-7* (CODE s*(w) >=65) ) *16tkruh) 
3220 LET kruh=kruh+l 
3224 NEXT W 
3228 RETURN 

3232 POKE 23624,112: RANDOMIZE U 
SR 3438 _ „ 

3236 PRINT #1;AT 0,0;" BARUA:HOP 
Y BEL : SXCH : BNPUT : BEU : " 

3238 PRINT 81;fiT 1,0;" OEM :BUER : 
HUXT :HOLL: " 

3240 RETURN 

3244 IF por=0 THEN RETURN 
3248 BEEP 0.01,32: IF por=l THEN 
LET saer=0: LET por=0: LET y =21 
: LET rop=0: GO SUB 3312: GO SUB 
3232: GO TO 2830 

3252 IF POf =2 THEN LET P0T=1: LE 
T sner =3 : RETURN 
3258 CLS : INPUT "název obrázku 
"; LINE z* 

3260 GO SUB 3364 : POKE 23736 , 187 
: 5AUE ZtCODE Raa,6912 

3261 CLS : PRINT AT 10,3; "Chcete 
zkontrolovat A/N ?" 

3262 IF INKEY*="n" THEN GO TO 32 
65 

3263 IF INKEY* = "a " OR INKEY * = "A" 
THEN GO SUB 3312: UERIFY z *CODE 
Ran : CLS : PRINT AT 10,10;“Dodr 

ý M " : BEEP 0.2,33: PAUSE 4 : GO 
TO 3265 

3264 GO TO 3262 

3265 RETURN 

f 269 CLS : GO SUB 3364: INPUT "n 
zev nahrávky LINE x* 

3270 CLS : PRINT AT 10,6;"Nahráv 
á se obrázek" 

3272 LORD X*SCREEN* 

3276 GO SUB 3308 

3280 RETURN 

3284 IF y<21 AND por=0 THEN RETU 
RN 

3288 IF por=0 THEN LET por=l: GO 
SUB 3548: GO TO 3296 
3292 IF por =1 THEN LET por =2 
3296 LET y*19: LET rop=2: PRINT 
8l; AT 1,26; "y =" ; y +por +rop ; " " 
3300 BEEP 0.01,30: LET saer=2 
3304 RETURN 
3307 REM zaznan 

3308 POKE 64745,01: POKE 64746,0 
2: RANDOMIZE USR 64744: RETURN 
3310 REM ukaž 

3312 POKE 64757,01: POKE 64758,0 
2: RANDOMIZE USR 64756: RETURN 
3315 REM vyaen 

3316 POKE 64785,01: POKE 64786,0 
2: RANDOMIZE USR 64784: RETURN 
3318 REM iflRUfl 

3320 RANDOMIZE USR 3438: PRINT 8 
1; AT 0,1; "Zvo l te stisken Čísla": 
PRINT 81; AT 1,1; "1 = INU ; 2 = 

TMK 'X - PBPFR" 

3324* IF INKEY *="1" THEN GO TO 33 
48 

3328 IF INKEY*="2" THEN GO TO 33 


-40 

3332 IF INKEY*="3" THEN GO TO 33 
44 

3336 GO TO 3324 

3340 INPUT "číslo inkoustu ";ink 
: POKE 64859, i nk: GO SUB 3312: R 
ANDOMIZE USR 64858: GO SUB 3308: - 
GO SUB 4860: GO TO 2820 
3344 INPUT "Cisto papíru ";pap; 
POKE 64884, pap: GO SUB 3312: RAN 
DOMIZE USR 64883: GO SUB 3308: G 
O SUB 4860: GO TO 2820 
3348 GO SUB 3312: RANDOMIZE USR 
64809: GO SUB 3308: GO SUB 4860: 
GO TO 2820 

3352 IF po r =1 THEN RANDOMIZE USR 
3190: PRINT OUER 1;AT 21,0;" 

3356 IF por =2 THEN RANDOMIZE USR 
3190: PRINT OUER 1;AT 21,0;". 

RANDOMIZE USR 319©: PRINT OUER 1 
; AT 21,0; "_ 

3360 GO SUB 3232: RETURN 

3363 REM ÉXCH 

3364 INPUT "číslo paaéti?(l-3) “ 

; Ron 

3368 IF R08=l THEN LET 02=156: L 
ET Ran =40000 

3372 IF Roa=2 THEN LET 02=183: L 
ET Ra* =46912 

3376 IF ROP =3 THEN LET 02=210: L 
ET Ran =53824 

3380 GO SUB 3312: GO SUB 3352: R 
ETURN 

3383 REM gUER 

3384 INPUT "CÍS10 paněti (1-3) - 

" ; ae r : POKE 64919,64 

3388 IF ne r =1 THEN POKE 64920.15 
6 

3392 IF aer =2 THEN POKE 64920,18 
3 

3396 IF aer =3 THEN POKE 64920,21 
0 

3400 GO SUB 3312: RANDOMIZE USR 
64915: GO SUB 3308: GO SUB 3352: 
GO SUB 3232: RETURN 

3403 REM BEU 

3404 POKE 23624 , a t r : CLS : GO SU 
B 3308: GO SUB 3232: RETURN 

3408 REM řízeni kurzoru 

3409 LET nast=l 
3412 LET saer =0 

3416 IF INKEY*="5" THEN BEEP 0.0 
03 , X *10 : IF X >0 THEN LET sner = l: 

LET X =X -1 : LET nast=l: GO TO 34 
32 

3420 IF INKEY*=“6" THEN GO SUB 3 
284: BEEP 0 . 003 , y +10 : IF y<21 AN 
D por =0 THEN LET saer =2: LET y=u 
+1: LET nast=l : GO TO 3432 
3424 IF INKEY*="7" THEN GO SUB 3 
244: BEEP 0.003,y+10: IF y >0 AND' 
por *0 THEN LET y*y-l: LET saer= 
3: LET nastal: GO TO 3432 
3428 IF INKEY *= "8" THEN BEEP 0.0 
03 , X *10 : IF X <31 THEN LET saer =4 
: LET X =X + 1 : LET nast=l: GO TO 3 
432 

3432 IF nast=l THEN PRINT BRIGHT 
i; FLASH l; OUER 1; PAPER 8; IN 
K 8; AT y+sk*por,x;" " 

3436 IF saer=l THEN PRINT OUER 1 
; PAPER 8; INK 8; AT y+sk+por,x+l 

3440 IF saer =2 THEN PRINT OUER 1 
; PAPER 8; INK 8, AT y+por-l+sfc,x 

3444 IF saer *3 THEN PRINT OUER 1 
; PAPER 8; INK 8; AT y+l+por+sk,x 

3448 IF saer =4 THEN PRINT OUER 1 
; PAPER 8; INK 8; AT y+por+sk,x-l 

3452 LET sk=0: LET nast=0 
3456 RETURN 

3460 LET cba=0: LET yyy=0 
3464 IF y <=7 THEN LET abc=0: LET 
yy =0: RETURN 

3468 IF y >7 AND y<=15 THEN LET a 
bc =2048 : LET yy=8: RETURN 
3472 IF y > 15 AND y<=23 THEN LET 
a bc =4096 : LET yy = 16: RETURN 
3476 RETURN 

3480 IF POT =2 THEN BEEP 0.02,25: 

BEEP 0.03,30: GO TO 2830 
3484 IF y =7 OR y= 15 THEN LET kaa 
=0: LET C ba =2048: LET yyy=7: RET 
URN 

3488 RETURN _ _ 

3492 IF u =0 THEN BEEP 0.02,23: B 
EEP 0.03,33: GO TO 2940 
3496 RETURN „ _ 

3500 LET vpr=0: FOR i =0 TO 1792 
STEP 256: BEEP 0.002,30 
3504 LET vpr *PEEK < 16384 +abc +x+ ( 
y +por-yy ) *32+i ) 

3508 POKE 16364+abc+cba+x+kaa+ (y 
*po r -yy -yyy ) *32+i , vp r : POKE Ran+ 
abc +cba+x+kaa + (y +por +rop-yy-yyy > 
*32 +i ,vpr 

3512 NEXT i : RETURN „ 

3516 IF y=8 OR y=16 THEN LET kaa 
=0: LET c ba s-2048: LET yyy=-7 

3524 I^xaSl AND POr=2 THEN BEEP 
0.01,30: BEEP 0.01,34: 60 TO 29 
40 


mikroelektronika 


65 


35£3 RETURN 

3532 IF x=0 TMĚN BEEP 0. 01.35: B 
EEP 0.02,36: CO TO 29*0 
3536 RETURN 

35*0 IF y=21 AND POr =8 TMĚN GO S 
UB 35*8: LET rop *2: LET y=19: LE 
T S»er=3: LET n»St*l: GG SUB 3*3 
2: LET zve *1. RETURN 
35**» RETURN 

35*8 POKE 2362*. 58: CLS : GO SUB 
3312: POKE 23659,0: RANDOMIZE U 
SR 3582: RANDOMIZE USR 3582: POK 
E 23659,2: POKE 2362*, 112: GO SU 
B 3232: RETURN 

3600 PRINT 81; AT 1 ,21; "X*"; x; " ” 
3602 PRINT 81; AT 1 , 26, "n*"; y+por 
+ rop;“ ” 

360* RETURN 
3620 REM SOLL 

3622 GO SUB 3312: POKE 2362 *,56: 

GO SUB 36*0: GO SUB 3308 
362* IF por =1 OR P0r»2 THEN RAND 
OMIZE USR 3190: RANDOMIZE USR 31 
90 

3628 RETURN 

36*2 LET a*=INKEY* 

36** LET n x (65103 AND a.*s'‘X“) + (6 
5125 AND a**‘‘ (") + (651*7 AND *♦»" 
'*•> + (6*682 AND a**"*." )♦ (65258 AN 
D a S=CHR* 11) +(6*609 AND a$*CHR« 
10) +(6*935 AND a**CHR$ 8) + (6*95 
6 AND a*»CHR* 9) +(6*978 AND 
5") +(6*995 AND a*»"8" >+ (65012 AN 
D a*»‘‘7“) +(65168 AND a$»“6") 

36*6 IF a$«=‘‘Q" THEN GO SUB 3312: 
GO TO 2820 

38*8 IF aí*"q" THEN RETURN 
3650 IF n < >0 TMĚN BEEP 0.001,30: 

RANDOMIZE USR n 
3652 GO TO 36*0 

3800 REM OEM taa 

3801 GO SUB 3*6*: LET sv*l 

3802 FOR i s0 TO 1792 STEP 256: B 
EEP 0.002,30 

380* LET «HSV ) »PEEK (1638*+abC+X 
+ (y+por-yy ) *32+i) : LET svcsv+1 
3808 NEXT i: RETURN 

3810 REM OEM ven 

3811 GO SUB 3*60: LET SV*1 

3812 FOR i*0 TO 1792 STEP 258: B 
EEP 0.002,30 

381* POKE 1638* +abc+c ba +X + (y+por 
-yy-yyy > +32+Í ,w (sv) : pqke Raa+ab 
e+cba+x + íy+por +rop-yy-yyy) *32+i , 
m (sv) 

3816 LET SVsSV+1 
3818 NEXT i : RETURN 
*000 REM BNPUT 

*001 BEEP 0.03,40: BEEP 0.04,20 
*002 LET XZ=1: LET yz=l. LET a»5 
. LET b = li 

*003 POKE 23624,112: RRNDOMIZEU 
SR 3*38: PRINT »1;RT 1,6;"BLS:BU 

*00* PRINT 81; AT 0,2; "Ov Udání k 
lávesaai 5 6 7 8 0" 

*006 GO SUB 3600 
*010 DIM f $ (8 , 8) 

*018 PLOT 95,63: DRAU 0,65: DRAU 
65,0: DRAU 0,-65: DRAU -65,0 
*020 PLOT 94,62: DRAU 0,67: DRAU 
67,0: DRAU 0,-67: DRAU -67,0 
*030 PLOT 93,81: DRAU 0,69: DRAU 
69,0: DRAU 0,-69: DRAU -69,0 
*032 PLOT OUER 0; 95,83: DRAU OUE 
R 1 ; 0 , 65 : DRAU OUER l;65,0: DRAU 
OUER l; 0,-65; DRAU OUER l;-65,0 
*03* FOR i*l TO 8: PRINT AT »+i, 
b+1; PAPER 5; BRIGHT 1; “ 

“: NEXT i 

*0*0 GO SUB 3*64: LET i>l 
*0*4 FOR j=0 TO 1792 STEP 256 
*050 LET ppsPEEK (Raa+abc+x + (y+P 
or+rop-yy) *32+j) 

*060 LET í$íi,l)sSTR* (PP -128 > s0 

*070 IF pp-128>«0 THEN LET pp*pp 
- 128 

*080 LET f*(i,2)s8TR* (pp-6*>»0) 
*090 IF PP-6*>«=0 THEN LET ppspp- 

*100 LET f*li,3)=STR* (pp-32>*0) 
*110 IF PP -32 > =0 THEN LET PP*PP- 
32 

*120 LET f*(i,*)=5TR* (pp-16>=0) 
*130 IF PP —16 > *0 THEN LET ppspp- 
16 

*1*0 LET f*(i,5)*STR* (pp -8 > *0) 
*150 IF pp~8>»0 THEN LET ppspp-8 
*160 LET fSU,6)*STR* <pp-*>*0) 
*170 IF pp-*>a0 THEN LET ppcpp-* 
*180 LET ř*(i ,7) =*STR* (pp-2>=0) 
*190 IF pp-2>«0 THEN LET ppapp-2 
*200 LET f*(i,8)t=STR* <pp-l>»0) 
*210 PRINT AT a+i,b+l; PAPER 5; 
INK i; BRIGHT 1;CHR* (79+64* (í*í 
i ,1) *“1‘‘> ) ;CHR* (79+6** ( ř $ ( i ,2) « 
"1") ) ; CHR* (79+64* ( f * ( i ,3) »‘‘l “) ) 

; CHR* (79+64* ( f*(i ,*) s*‘l‘‘) ) ; CHR* 
<79+6** ( f * (i ,5) *'T) ) ; CHR* (79+ 
64* (f*(i ,6) *" 1" > ) ; CHR* (79+6** ( f 
*(i ,7) »“1*‘> ) ; CHR* (79+6* * ( f * ( i ,8 
) *‘‘ 1 “) ) 

*212 LET i*i+l 

*220 NEXT j 

*230 LET C*bXNKEY* 

*235 IF C * * *' C “ THEN GO TO *000 
*236 IF C|*"C“ THEN BEEP 0.02,30 
: BEEP 0.03,*0: LET S**"0000‘‘: G 
O SUB 3118: GO TO *002 
*2*0 IF c**"5" THEN BEEP 0.01,XZ 
+ l*yz+l: IF XZ >1 THEN LET XZ=XZ- 
1: LET Ssl: LET 00*1: GO TO *310 


*250 IF c*b"6" THEN BEEP 0.01.XZ 
+1*1 +y z ; IF yz <8 THEN LET yz*yz + 
1: LET Ss2: LET nosí; GO TO *310 
*260 IF c**”?“ THEN BEEP 0.01, XZ 
+ l*l+yz: IF yz > 1 THEN LET yz=tyz-, 
1: LET S*3: LET no=l: 60 TO *310 
*270 IF C *» ‘‘8 " THEN BEEP 0.01,XZ 
+ l*y Z + 1 : IF XZ <8 THEN LET XZ*XZ + 
1: LET So*: LET no»l: GO TO *310 
*280 IF C*b ,, 0“ THEN BEEP 0.04,30 
: GO SUB *380 

*290 IF Cís-q" THEN GO TO *800 
*300 GO TO *350 

*310 IF S =1 THEN PRINT OUER 1; P 
APER 5; INK l; BRIGHT 1;AT a+yz, 
b+XZ+l;" " 

*320 IF s»2 THEN PRINT OUER 1; P 
APER S; INK 1, BRIGHT 1;AT a+yz- 
1, b+xz ; " “ 

*330 IF S*3 THEN PRINT OUER 1; P 
APER 5; INK 1; BRIGHT 1;AT a+yz+ 
l,b+xz;‘‘ " 

*3*0 IF s*4 THEN PRINT OUER 1; P 
APER 5; INK 1; BRIGHT l;AT a+yz, 
b+xz-1;” 

4350 PRINT OUER l;AT a+yz,b+xz; 
FLASH i; BRIGHT 1; " 

*370 GO TO *230 

*380 LET d*=SCREEN* (a+yz,b+XZ) 
*390 IF d*B”0" THEN PRINT AT a+y 
Z , b >XZ ; "(j" : LET f * (yz ,xz) «"1‘‘ : R 
ETURN 

4*00 IF d*=‘‘ " THEN PRINT AT a+y 
Z , b+xz ; “0“ : LET f * (yz , XZ ) s“0" : R 
ETURN 

*802 GO SUB 3*60: LET i *1 
*808 FOR js0 TO 1792 STEP 256 
*812 POKE Raa +abc +cba+x+ (y+por +r 
op-yy-yyy) *32 + j , UAL C‘BIN "+f*(i 
) ) 

*816 BEEP 0.02,4+ i ; LET i»i+l 
*818 NeXT j 

*820 RANDOMIZE USR 3*38: PRINT # 
1; AT 0,1; ‘'Pozice kurzoru x*‘‘; 
x ; ’• y =" ; y +po r 

*82* PRINT »!; AT 1,1; "Chceš pokr 
ačovat v zápisu A/N 7“ 

*826 IF INKEY *»“n " THEN BEEP 0.0 
8,3. BEEP 0.09,10: GO SUB 4360: 

60 TO 2820 

*828 IF INKEY**- 4” THEN GO SUB * 
8*0: GO TO *83* 

*830 GO TO *826 
*832 LET x*x. + l 

4-83* FOR W*8 TO O STEP -1: BEEP 
0 .01 , RND + 10-* : NEXT w 
*835 GO SUB *860 

*836 PRINT BRIGHT 1; FLASH ti OU 
ER 1; PAPER 8; INK 8; AT y+sk+por 
, X ; ••: PRINT OUER 1; INK 8; PAP 

ER 8; AT y+sk+por- (1 AND x*0)-(21 
AND x *31 AND y *21) , X -1+ (32 AND 
X *0) - (21 AND x *31 AND y«=21);‘‘ 

GO TO *002 

*8*0 IF X*31 AND PO r *2 THEN LET 
X*0: LET y *0 : LET rop*0: LET por 
=0: LET a bc *0 : LET yy*0: GO SUB 
3312: GO SUB 3232: RETURN 
*8*4 IF X*31 AND V+roP>=21 THEN 
LET X=0: GO SUB 3284: RETURN 
*8*8 IF X *31 AND y + rop<21 THEN L 
ET x *0 : LET y=y+l: RETURN 
*850 GO TO *832 

*360 GO SUB 3312: POKE 2362*. PEE 
K (Raa +6200) 

*86* IF POral OR por *2 THEN RAND 
OMIZE USR 3190: RANDOMIZE USR 31 
90 

*865 RETURN 
5000 REM HELP 
5002 CLS 

5010 PRINT '"9ARUA: - zněna bare 

vných paraae- trú v celé 

obrazovce." _ 

5020 PRINT "BOPY - tisk na ZX 

printru, všech 2* ř 

ádek." 

5030 PRINT ' “BEL : - S CRPS SHI 

FT naže dis- play fite 

se SYMBOL 

SHIFT aaže atlributy. 


50*0 PRINT '"SXCH: 
zovky . ’• 

5050 PRINT '■BNPUT: 
u obrazu 
ly HLS-vrař. 

vyaaz 


- zněna obra 


da 


m 


? UIT-ZPět 

i se tr 


: mé a 


S CAPS SHI 
znakové ho 


FT 

dnoty " 

5060 PRINT ai;AT 0,7; "stiskněte 
k lávesu" 

506S PAUSE 0 
5070 CLS 

5080 PRINT ' "ffiEU : - s CAPS SMI 

FT naze koap- letní obra 

zovku." 

5090 PRINT ' ‘‘OEM 
FT - záznaa 
ozici kurzoru 
ěti . 
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SHIFT ZáPiS 
o obrazovky." 

5100 PRINT '“BUER 
razovek . " 

5110 PRINT '“BUIT 
h lavni 

5120 PRINT '"SOLL 
zu do saěrú 
h kláves 
FT inkoust 
SHIFT attr i - 
5130 PRINT ttl; AT 0 , 7; "St i Skně te 
klávesu" . 

51*0 PAUSE 0: GO TO 2 

6000 CLEAR 39999: LOAD ‘“‘CQDE 

RUN 

7000 REM UDG 

7001 REM áŽČdéCZlíiÚSÚĎftÓRěřŠCÚ 

ABCDEFGMIUKLMNOPORSTU 


- S CAPS SHI 
Pix ty na p 
do aezipaa 
se SYMBOL 
z paaěti d 

- aíchání ob 

- návrat do 
nabídky . " 

- posun obra 
kurzorovýc 
S CAPS SHI 
Se SYMBOL 
buty, 


1 REM SKIC AK Stroj.kOd + UDG 
10 FOR i *6*599 TO 6553* 

20 REAO a : POKE i , a 
30 NEXT i 


110 DRTR 2*3,006,192,033,000,06 
* , 205 , 178 , 01* , 201 ,033 , 255 , 087 ,01 

7 . 223 . 087 . 229 .213.014. 023 . 006 . 03 
2 , 026 ,119,121, 230 , 007 , 25* ,001,03 
2,002,151,018,0*3,027,016,2*1,01 
3,0*0,021,121 ,230,007,254,000,0* 
0,024,254,007,032.225,213,017,00 
0 , 007 , 167 , 237 , 082 , 289 , 02* ,215,20 
9 , 225 ,021, 037 , 12* , 25* , 079 , 200 , 02 

4.201. 229 . 033 . 000 . 007 . 235 . 167 . 23 
7 , 082 , 235 , 225 , 02* . 193 , 033 , 223 ,09 
0,017, 255 , 090 , 001 , 22* , 002 ,237,18 
4,062,056,806,032,018,027 

120 DATR 016,252,201,017,032,00 
0 , 00* ,025,016, 253 , 065 , 035 ,016,25 

3 . 209 . 066 . 197 . 006 . 000 . 075 .213.22 

9 . 017 . 032 . 000 . 167 . 237 . 082 . 209 . 22 
9 , 237 , 18 * , 225 , 209 , 193 , 120 , 016,23 
4 , 2 * 1 , 067 , 119 , 0 * 3 , 016 . 252 , 201,01 
7 , 86 * , 183 , 833 , 000 , 06 * , 001 , 000 , 02 
7 , 237 , 176 , 201 , 017 , 06 * , 183 , 033 , 00 
0 , 06 * , 006 , 027 , 197 , 006 , 000 , 800 , 00 
0 , 000 , 026 , 000 , 000 , 000 , 119 , 035 ,01 

9.000. 016.2*3,193,016,237,201,01 

7 . 028 . 028 . 033 . 000 . 06* , 006 , 027 , 19 
7 , 006 , 800 , 126 , 2*5 , 026 , 1 19 

130 DRTA 2*1,018,035,019,016,2* 
6,193,016,2*0,201,033,000,064,00 

6.024.197.006.000. 126.238.255.11 
9,035,016,2*9,193,016,2*3,201,01 
*, 06* , 033,015 ,003 .017 ,026 , 001,06 
9,213, 197 , 067 , 062 , 022 ,215,124,21 
5,122,215,121,215,020,016,2*4,03 

6. 193.209.016.236.201.062.000. 23 
0,087,087,033,000,088,006,003,19 
7 , 006 , 080 , 126 , 230 , 2*8 , 178 .119,03 
5,016, 2*8 , 193 ,016 , 2*2 , 201,062 , 00 

2 . 203 . 039 . 203 . 039 . 203 . 039 .230.05 

6 . 087 . 033 . 000 . 088 . 006 . 003 

1*0 DATA 197,006,000,126,230,19 
9.178, 119,035,016,2*8,193,016,2* 

2.201.000. 001.000.024.017.06*, 15 

6 . 033 . 000 . 064 . 026 . 182 . 119 . 035.01 
9 , 011 , 120 , 177 , 832 , 2 * 6 , 201 , 033 , 00 
0 , 06 * , 085 , 062 , 192 . 006 , 031 , 035,09 
4 , 0 * 3 , 115 , 035 , 016 , 2 * 9 , 11 * , 035 . 06 
1 , 032 , 2 * 2 , 201 , 033 , 255 , 087 , 022 , 00 
0 , 062 , 192 , 006 , 031 , 0 * 3 , 09 * , 035 , 1 1 
5 , 0 * 3 , 016 , 2 * 9 , 114 , 0 * 3 , 061 , 032 , 2 * 

2.201.033.255.087.014.192.006.03 
2,183,203,022,8*3,016,251,013,03 
2 , 2*5 , 201 , 033 . 000 , 06* ,01* 

150 DATA 192,006,032,183,203,03 
0 , 035 , 016 , 251 , 813 , 032 . 2*5 , 201 , 03 

3. 000. 064. 017. 000. 065. 014. 192. 00 

6.032.026. 119.121.254.002.032.00 
2,151,818,019,035,016,2*3,213,01 
7 , 22* , 000 , 025 , 227 , 025 . 235 , 225 ,01 

3.121.230.007.254.000. 032.010.21 
3,017, 22* , 007 , 167 , 237 , 082 . 209 , 02 

4.014. 254. 001. 832. 010. 229. 235. 01 
7 , 22* , 007 , 167 , 237 , 082 , 235 , 225 , 12 
1 , 230 , 063 , 25* , 800 , 032 , 806 , 062 , 00 
7 , 132 , 103 , 02* , 187 , 25* . 001 , 032 , 18 
3 , 062 , 007 , 130 , 087 ,121, 25* 

160 DATA 001,032.174.201,033,00 
0 , 088 , 002 , 056 , 01* , 02* , 006 ,031,03 
5 , 89* , 0*3 , 115 , 035 , 016 . 2*9 ,119,03 
5,013, 032 , 2*2 , 201 , 033 . 255 , 098 , 06 
2, 056, 014, 824, 006, 031. 0*3, 094, 03 
5, 115,0*3,016,2*9,119,0*3,013,03 
2,2*2,281,833,832,088,017,000,08 
8,001, 22* , 002 , 237 , 176 , 062 , 056 , 00 

6 . 032 .018.019.016. 252 . 201 . 000 . 03 

3.255.087.017.255.086.014.192.00 

6.032.026.119.121.254.002.032.00 
2,151,018,027,0*3,016.2*3.213,01 
7 . 22* , 080 , 167 , 237 , 082 , 227 

178 DATA 167,237,082,235,225,01 
3,121, 230 , 807 , 25* . 008 , 032 , 008 , 2 1 
3, 017, 22*, 007, 825, 209, 02*. 011, 25 
4,001, 032 , 007 , 229 , 033 , 22* , 087 , 02 

5.235.225.121.230.063.254.000. 03 
2 , 006 ,124,21*, 007 , 103 , 02* , 188 , 25 
4,081, 832 , 18* , 122 , 21* , 007 , 087 , 12 
1 , 25* ,001, 032 , 175 » 281 , 033 , 000 , 06 

4.017. 032. 064. 229. 213. 014. 023. 00 
6 . 032 , 026 ,119,121, 230 , 007 , 25* , 08 
1,032,002,151,018,035,019,816,2* 
1,013,0*0,019,121,230.007,254,00 
0,0*0,022, 25* , 007 , 032 , 225 

180 DATA 213,017,000.007,025,28 
9 , 02* ,217, 209 , 225 , 028 , 036 , 12* , 25 
* , 072 , 832 , 20* , 201 , 229 , 833 , 000 , 00 
7 , 025 , 235 , 225 , 82* , 198 . 033 , 008 , 08 

8.001. 800 . 003 . 062 . 056 .119. 035 . 0 1 
1,120,177,032,2*7,201,033,000,06 

4.801. 000 . 02* , 062 , 008 ,119, 035 , 0 1 
1,120,177,032,2*7,201.198,030,06 

3 . 156 .118. 027 . 003 . 019 . 000 . 062 . 00 

8. 016. 056. 004. 060. 068. 060. 000. 0* 
0,816, 12* , 808 ,016, 032 , 12* , 000 , 02 
0 , 088 , 828 , 032 . 832 , 032 , 028 , 000 , 00 
0 , 085 , 006 , 060 , 066 , 068 , 060 

190 DATA 080,008,016,056,068,12 
0 , 06* , 060 , 000 , 868 , 060 , 066 , 06* , 06 
* , 066 , 068 , 000 , 060 , 126 , 00* , 008 , 01 

6.032.126.000. 008.016.068.068.06 
8 , 060 , 08* , 056 , 008 , 016 , 008 , 0*8 , 0 1 

6.016. 056 . 000 . 006 . 016 . 068 . 068 . 06 

8 . 068 . 056 . 000 . 068 . 060 . 06* , 068 , 00 

2 . 066 . 060 . 080 . 808 . 082 . 066 . 066 . 06 

6 . 066 . 060 . 000 . 060 . 120 . 068 . 066 . 06 

6,068, 120,000,0*0,016.120,068,06 

8.068.068.000. 808.016.056.068.06 

8 . 068 . 056 . 000 . 860 . 12* . 066 , 066 , 12 
* , 068 , 066 , 080 , 0*0 , 016 , 056 

288 DATA 068 , 120 . 064+, 060,000,02 
0 , 008 , 028 , 032 , 032 , 032 , 032 , 000 , 0* 
0,016, 056 , 86* , 856 , 00* , 120,000 ,01 
0,020,016,856,016,016,012,000,81 
6 , 800 , 068 , 068 , 868 , 068 , 056 
1008 SAUE 'C 0 de"CODE 6*599,936 
1010 UERIFY "COde-CODE 6*599,936 
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Program ANALOG 2.1 umožňuje použit počítač Sord MS jako logický časový analyzátor (k počítači musí být 
připojen modul Basic F a EM-5). Umožňuje záznam a zobrazeni časových průběhů osmi nezávislých logických 
sign^ú metodou vzorkováni. Tato metoda a její nevýhody je podrobně popsána v [1]. Při záznamu čte počítač 
v určitých časových intervalech (doba vzorkování, Tv) data ze vstupního portu a ukládá je do paměti (24 kB). Po 
naplněni paměti lze zobrazit časové průběhy signálů na obrazovce ve tvaru časového diagramu. 


Při záznamu je možno volit vstupní 
port, vzorkovací dobu, podmínku za- 
čátku nebo ukončení záznamu a typ 
záznamu (se spuštěním nebo s ukonče- 
ním). Při zobrazování se lze „pro- 
cházet" celou záznamovou pamětí, 
měřit délku časových úseků a kmitočet 
jednotlivých signálů, automaticky vy- 
hledávat různé kombinace úrovní atd. 
Zaznamenaná data se dají uchovat na 
magnetofonové kazetě. Během zobra- 
zování je uživatel průběžně informován 
o okamžitém čase a logickém stavu. 

Program se skládá ze tří dílčích 
programů, které se postupně nahrají 
do počítače. První program inicializuje 
systém, definuje předlohy znaků, obsa- 
zení VRAM atd. Dále nahraje druhý 
program ve strojovém kódu (1 kB), 
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zásuvka 

pro JOY Sord M5 

■ JA-3 
- JA- 1 

■ JA-2 

■ JA-i 

_ spojit se zemi 
u Sord M5 -stíněni 
zásuvek JOT nebo 
kolik č 2 zásuvky 
PHNTER 


JB-3 

-JB-1 

JB-2 

JB-4 


Obvod k připojení měřených obvodů 
k počítači 






který je uložen od adresy 7900H 
a obsahuje pomocné rutiny pro záznam 
a zobrazení. Nakonec nahraje vlastní 
obslužný program, který je opět 
v BASICu. Ten zajišťuje ve spojení 
s podprogramy ve strojovém kódu 
všechny funkce logického časového 
analyzátoru. 


Parametry analyzátoru: 

Doba vzorkování: se spuštěním 
6,14 »is, 20 hs až 566,7 ps (krok po 
2,22 ys), s ukončením —31,1 až 
—566,7 tis (krok po 2,22 ys). ' 
Počet kanálů: 8. 

Rozsah záznamové paměti: 24 kB. 
Podmínka spuštění nebo ukončení: 
lze zadat u jednotlivých kanálů 
log. 0, log. 1, nebo bez významu. 


Po nahrání všech tří částí programu 
se program ohlásí nápisem READY. 
Nyní můžeme buď spustit záznam, 
zobrazit časový diagram nebo pracovat 
s magnetofonem. 

Při funkci záznam nastavíme nejprve 
vzorkovací dobu pomocí kurzorových 
šipek. Nastavená doba se průběžně 
zobrazuje vlevo nahoře. Po nastavení 
požadované doby stiskneme RETURN. 
Poté určíme, zda chceme podmínku 
(a/n) a (příp.) tuto podmínku v binárním 
tvaru. Nakonec vložíme adresu vstup- 
ního portu (pozor — dekadicky, nebo 
před hex. číslo napsat znak &). Praktic- 
ky připadá v úvahu port &50 (analýza 
signálu z magnetofonu) a port &37 (pro 
použití měřicího interfejsu — viz obr.). 
Při Tv=6,14 fis lze pro testování nebo 
demonstraci použít port 1 (čítač CTC 
#1). Nyní, pokud máme nastaveno 


spuštění podmínkou, se spustí záznam 
po splnění této podmínky nebo po 
stisknutí tlačítka RESET. Paměť se 
zaplní vstupními daty a vypíše se opět 
RÉADY. Nyní máme opět možnost si 
vybrat z hlavního menu. Pokud bylo 
nastaveno ukončeno podmínkou 
(Tv<0), pak se po zadání portu nejprve 
zaplní celá paměť daty (na vyšších 
rozsazích to trvá až několik sekund) 
a pak se teprve testuje stisknutí RESET 
nebo splnění ukončovací podmínky. 
Během toho se paměť stále cyklicky 
plní dáty. Po RESET nebo splnění 
podmínky se záznam zastaví a opět se 
vypíše READY. 
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ného stavu 


Při funkci zobrazení se na obrazovce 
objeví časové průběhy signálů. 
Uprostřed obrazovky je svislá přerušo- 
vaná čára — ukazatel. Při levém kraji 
obrazovky se nachází podobná čára 
— značka. Ukazatelem můžeme pohy- 
bovat tlačítky ; a : . Značku můžeme 
umístit na žádanou pozici tak, že na 
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tuto pozici umístíme ukazatel a stiskne- 
me tlačítko z. Tím umístíme značku na 
toto místo. Tlačítky + a * se 
můžeme s obrazovkou „pohybovat" po 
paméti, tlačítka «- a -> se používají 
pro rychlejší pohyb po osmi bodech 
a konečně tlačítka < a > umožní 
pohyb vpřed nebo vzad o celý rozsah 
obrazovky (256 bodů). Vlevo od ukaza- 
tele jsou zelená čísla, označující číslo 
signálu. Vpravo je číslo, které určuje 
okamžitou logickou úroveň v místě 
ukazatele — červená jednička nebo 
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modrá nula. Na křivkách jednotlivých 
kanálů je log. 1 vybarvena červeně, 
log. 0 modře a hrany žlutě. 

Nahoře na čelním panelu se 
průběžně zobrazuje okamžitý stav 
v místě ukazatele v hexadecimálním 
tvaru. Pod ním je zobrazen čas 
v milisekundách v místě ukazatele 
a délka intervalu mezi ukazatelem 
a značkou. Pomocí tohoto intervalu lze 
snadno měřit délku impulsů nebo po- 
sun hran jednotlivých signálů. 

Dále umožňuje analyzátor v režimu 
zobrazení tyto funkce: 


t — po zadání času v milisekundách se 
přenese ukazatel do příslušného místa, 
z — umístí značku na místo, kde je 
ukazatel, 

c — přenese ukazatel na místo, kde je 
značka, 

b — umístí ukazatel na začátek paměti, 
k — umístí ukazatel na konec paměti, 
s — po zadání stavu (dekadicky nebo 
&hex) přesune ukazatel na první místo, 
kde je tento stav. Prohledává se od 
místa kurzoru do konce paměti, 
f — po zadání čísla kanálu vypočítá 
průměrný kmitočet signálu v intervalu 
mezi ukazatelem a značkou (včetně je- 
jich poloh). Kmitočet se vypočítá z po- 
čtu hran v tomto intervalu, proto je 
vhodné pro větší přesnost nastavit jak 
ukazatel, tak značku na hranu u toho 
kanálu, kde chceme měřit kmitočet. 


e — ukončí režim zobrazení a umožní 
opět výběr v hlavním menu. 

Poznámky k použití 
programu: 

Protože program mění obsah někte- 
rých systémových proměnných a uspo- 
řádání VRAM, je vhodné po skončení 
práce s ním inicializovat systém 
(CALL 0, vypnutí počítače). Pokud 
chceme během programu přejít do BA- 
SlCu (např. změna rychlosti nahrávání 
na MGF), lze tak beztrestně učinit v re- 
žimu hlavního menu po vypsání READY 
stisknutím CTRL+RESET. Pokračovat 
v programu lze příkazem CONT. Upo- 
zorňuji, že druhý program v BASIGu 
není v paměti umístěn jako obvykle od 
adresy 77F2H, ale kvůli strojovému 
programu se nahrává od adresy 8001 H 
(zajišťuje inicializační basicový pro- 
gram). 

Závér 

Popsaný program prokáže velmi do- 
bré služby při analýze a optimálním 
nastavení signálu z magnetofonu a při 
oživování různých periférií a jiných 
číslicových zařízení, kde se nepoužívají 
kmitočty vyšší, než asi 100 kHz (např. 
dálnopis, A/D převodník s C 520D . . .). 

Literatura 

[1] Úvod do techniky logických analy- 
zátorů. Ročenka sdělovací techniky 
— Praha 1987. 


Seznam proměnných hlavního 
programu a jejich význam: 

celočíselné: 

CTC ... časovači konstanta pro ča- 
sovač při záznamu (8 áž 
255), 

SIGN ... 1 . .startovací podmínka, 
0 . .ukončovací podmínka, 

G . . . počet míst za desetinnou 
čárkou pro tisk času (2 až 4), 
HL ... poloha obrazovky v paměti 
&A0O0 — &FFFF, 

• • • poloha značky v paměti 
&A000 — &FFFF, 

X . . . x-ová souřadnice ukazatele 
na obrazovce (0 až 255), 

T . . . pomocná proměnná, 

Q . . . podmínky startu nebo konce 

záznamu (0 až 255), 

1: ... maska podmínky startu ne- 
bo konce záznamu (0 až 
255), 

I . . . parametr cyklů, 

C . . . číslo vstupního portu (0 až 

255). 

reálné: 

BASE# . . . vzorkovací doba v mili- 
sekundách — 566.7E-3 až +566.7E-3, 
T# — pro vstup času. 

řetězcové: 

A$ . . . pro vstup povelů, 

B*.. . pro vstup podmínky v binárním 
tvaru. 


1000 ' 

lei®' 
1020 ' 
-4030 ' 
1040' 
1090' 


LOGICKY ČASOVÝ ANALYZÁTOR 


SCOPWARE COPYRIGHT 1987 
VERZE 2.1 


1060' 

1070' 

1080' Iniciál i zrnem systému 
1090' 

1100 ' 

1110 type inticlear 25&,69FFC:poke 6701A 
, 694:poke 67035, 3:poke 69FFD.1.9 
1120 ' 

1130' Inicializace VRAM 
1140' ————»*«»» 

1150' 

1160 print “ UZSTVTR" i cal 1 60E01 ,0,61000, 
,60800t cal 1 60E01.61E00. 60800, ,0>csll 60 
B81 , , ,62000, 618001 call 60E01 ,0,60800, ,62 
C00: cal I 60860,, 6600 1..69FFF: cell 60E01, 
6FF00 , 60 1 00 , , 63A00 

1170 pokew 670BD, 620001 pokew 67090,62000 
1180' 

1190' Inicializace barev 
1200 ' ——————— 

1210 ' 

1220 for I-60C00 to 613FF step 8 

1230 vpoke I ,681 ,6S1 ,6B1 ,6B1 ,6B1 ,6B1 ,6B1 

,671 

1240 nejit I 
1290' 

1260' Inicializace GII obrazovky 
1270' 

1280' 

1290 K-6S0 

1300 far 1-63900 to 63AFF step 640 
1310 for J-I to I+61F 
1320 vpoke J,(K and 6FF> 

1330 K-K+l 


1340 next J.I 
1390' 

1360' Definice znaku a spritu 
1380’ 

1390 view 0,0,31 ,7:cls:X«128 

1400 for I-6A2 to 6CB: stchr “00000000000 

00000“ to Zsnext 

1410 stchr “8000800080008000“ to 6A0tstc 
hr " 3000800080008000" to 6Al:*iag 2 
1420 for 1—16 to 31:scod I,6A0iscol 1,15 
+<I >23) i 1 oc I to X, 64+16*11 mod 8)snext 
1430 stchr "0007050505070000“ to 6A3 
1440 stchr “ 0002020202020000 “ to 6A9 
1450 stchr "0020505050200000“ to 6AD 
1460 Stchr "0020602020200000“ to 6B1 
1470 stchr "0060902040f 00000" to 6B5 
1480 stchr "00e020e020e00000“ to 6B9 
1490 stchr “002060a0f 0200000“ to 6BD 
1500 stchr “00e080e020e00000" to 6C1 


1510 stchr "006080e090600000" to 6C5 
1320 stchr “0060204040400000“ to 6C9 
1530 for 1-0 to 7iscod 1 ,4*I+6ACt seol I, 
2: loc I to X-8,64+16*I:next 
1540 for 1-8 to 15;scod I.6A4sscol 1,4:1 
oc I to X , 64* 1 6* < I -8 ) J nex t 
1530 stchr "002040fe40200000" to 6e2,l 
“000S04f 604080000” to 683,1 
“0000004848784848“ to 681,1 
" 3c 4299a 1 a 1 99423c “ 
”0000000000081000“ 
“0000000000281000“ 


to 680,0 
to 684,0 
to 685,0 


1560 stchr 
1570 stchr 
1580 stchr 
1590 stchr 
1600 stchr 
1610' 

1620' Tisk obrazovek 
1630' — — — = 

1640' 

1650 print "W. STAV : 00Q1» SCOPWARE 1987 
WW T» 0.000 ms^dT- 0.000 msW“;rptB(3 
2,"-“)í“Menu : <♦+; : *4> t ,b,k , s,c ,z ,f ,e 
"icursor (0,7) jrptSf (32 , ) ; “KC“ 

1660 print “i"iicall 60CA3 
1670 print "X <v J. vl -viy 
LOGICKY ČASOVÝ ANALYZATORWr” srptH (38. “ 
-“> 5 “71 Tv- 0.0 uSl P— < X 1-000 

1 1 II 765432101X*-! ) rptfi (38 , ) j “J t 

rptB (38 , > ? "7 

1680 print "I 1X6 x -vil lli r...SP 

ÚSTĚNI U II IIII lli l,s,v... 

LOAD , SAVÉ , VER IFY II U /vJi 

III e... ZOBRAZENI II II IIII 

16“ S rptB (38, ) ; “7 “ 

1690 view 0,16,39,23 
1700' 

1710' Basic od 8000H, nahraj cm a CHAIN 
1720 ' ———————— 

1730' 


1740 poke 63001 ,6FF: pokew 6726A. 68002, 68 
004, 68004 told “LAmcset?": Chain 


1000' LOGICKY ČASOVÝ ANALYZÁTOR 

1020 ' 

1030 ' 

1040' Pocatecni inicializace 
1050' 

1060 CTC-9: BASEb-0. 02ti SIGN-1 i G-4 

1070 cis: on error gosub HERR:goto BEXIT 

1080’ 

1090' Horky start zobrazovaní 
1100 ' 

111 0BHQT 

1120 HL.LAB-6A000: X-128: goto BZOBR 
1130' 

1140' Smyčka zobrazovaní 
1150' 

1 1 60BLOOP 

1170 print cursor (8, 1) : r ightB (hexfi (peek ( 
HL+X) ) ,2) ? cursor (3,3) s numfi ( (HL+X+65FFF+S 
IGN-1) *abs(BASE#> ,S-G,G) scursor (19,3) ?nu 
mfi( (HL+X-LAB)*BASE#,8-G,G> 

1 180HKEY: Afi«i nkeyfi 


1190HCOMMAND 

1200 if AS«“" then goto SKEY cl se if AS- 
then goto SSPD else if AS-":" then g 

oto SSPI else if then goto BEST e 

lse if AB=“*" then goto BSST else if Aft- 

”*■" then goto BFBS else if then g 

oto HFSS 

1210 if Afi«"<" then goto BPGD else if Afi 
=">" then goto BPGI else if Afl»"t" then 
goto fiTIHE else if Afi=»”s" then goto BSEA 
R else if AS- "e" then goto BEXIT else if 
AB«"e" then goto BCAR else if AB=“z“ th 
on goto BZNAC 

1220 if AB— “ f “ then goto BFRQ else if Afi 
*"k" then goto BKONEC else if AH-"b“ the 
n goto BBEG1N else goto HKEY 
1230' 

1240' Posunuti pointeru vlevo 
1250 

1260BSPD: if X<1 then X-2S5 else X-X-l 
1270 cal 1 67AE0, , , ,X: cal 1 67AFC, , ,peek (H 
L+X) i goto BLOOP 
1280' 

1290' Posunuti pointeru vpravo 
1300' 

1310BSPI : i f X >254 then X-0 else X-X+l 
1320 cal 1 67AE0 , , , , X : cal 1 67AFC , , , peek (H 
L+X) : goto BLOOP 
1330' 

1340' Posunuti obrázku vpřed 
1350.' 

1 360BSST : i f HL >-257 then goto BLOOP else 
HL-HL+1 i cal 1 67A9E, , .LAB-HL ,HLi cal 1 67A 
FC,, .peek CHL+X): goto BLOOP 
1370' 

1380' Posunuti obrázku vzad 
1390' 

1 400BBST : i f HL< -24575 then goto BLOOP el 
se HL-HL-1 : cal 1 67A9E, , .LAB-HL, HL:caI i 6 
7AFC, ,, peek (HL+X) : goto BLOOP 
1410' 

1420' Posunuti obrázku vpřed o osm bodu 
1430' 

1440WFSS: i f HL>-264 then goto BLOOP else 
HL«HL+8:call 67B61 , • , LAB-HL, HL: cal 1 67A 
FC,,, peek (HL+X): goto BLOOP 
1450' 

1460" Posunuti obrázku vzad o osm bodu 
1470' 

1480SFBS: if HL< -24568 then goto BLOOP el 
se HL**HL-8:call 67BA8, , .LAB-HL, HL: cal 1 6 
7AFC, ,, peek (HL+X) i goto BLOOP 
1490' . 

1500' Posun o obrazovku vpřed 
1510' - f 
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5 obnov HL 


1520HP6I : if HL >-5 1 2 then goto HLOOP eis* 
HL-HL+256:call 67A9E , , ,LAB-HL,HL:cal 1 6 
7AFC, , ,peek (HL+X) sgoto HLOOP 
1530' 

1540' Posun o obrazovku vzad 
1550' 

1560HPGD: if HL< -24320 then goto HLOOP el 
se HL=HL-256:call &7A9E , , ,LAB-HL,HL:cal 1 
67AFC, , ,peek (HL+X) igoto HLOOP 
1570' 

1580' Umístěni pointeru na konec 
1590' 

1 600HKONEC : T— 65FFF : goto HPRENOS 
1610' 

1620' Uaisteni pointeru na zacatek 
1630' 

1 640HBEG I Nj T— 0: goto HPRENOS 
1650' 

1660' Umístěni značky pod pointer 
1670' 

16S0HZNAC: LAB-HL+X : goto HZOBR 
1690' 

1700' Přeneseni pointeru na značku 
1710' 

1 720HCAR 3 T-LAB-6A000 
1730' 

1740' Přenos pointeru na určitou pozici 
1750' 

1760HPRENOSI X-128: i-f T<128 then X=X-(12B 
-T) else i-f T>65F7F then X-X+T-65F80 
1770 HL«T+6A000-X:goto HZOBR 
1780' 

1790' Přeneseni pointeru na daný cas 
1800' 

1810HTIME: view 0,6,31 ,6s input "T Cmsl - 
" i T#: view 0,0,31 ,7: i-f T#<0 and SIGN-1 or 
T#>0 and SIGN-0 or abs(Tft) >abs (65FFF*BA 
SE#) then goto HTIME else T-eint (T#/BASE# 
>sif S1GN-0 then T— T+65FFF 
1820 goto HPRENOS 
1830' 

1840* Hledaní daného stavu 
1850' 

1860HSEAR: view 0,6,31 ,6s input "Stav - 
Tsif T<0 or T>255 then goto HSEAR 
1870 cail 67B1F,256*T,6FFFF-HL-X+1,,HL+X 
s i-f ( <reg (0>mod 256)and 640)-0 then print 
“Nenalezeno !6“s igoto HCEKEJ 
1880 T-reg (3) -6A001 i view 0,0,31 ,6:goto H 
PŘENOS 
1890' 

1900' Zobrazeni obrazovky a pointeru 
1910' 

1920HZOBR: cal 1 67A9E, , ,LAB-HL,HL:call 67 
AE0, , , , X: cal 1 67AFC, , ,P**k (HL+X) s goto HL 
OOP 
1930' 

1940' Vstup do povelové obrazovky 
1950' 

1960HEXITB print 11 KUVL READ Y ** 
1970HEXCOHsAH— i nkeyH: i-f AH« M " then goto 
HEXCOH else i f AH«"e" then goto HRET eis 
e if AH-V” then goto HRUN else if AH-“1 
“ then goto HLOAD else if AH-”s” then go 
to HSAVE else if AH-"v“ then goto HVERIF 
Y else goto HEXCOH 
1980' 

1990' Navrat do zobrazeni 
2000 ' 

20 10HRETs print "KU“ igoto HHOT 
2020 ' 

2030' Nahrani dat na magnetofon 
2040' 

2050HSAVE: input ” .WJmeno souboru : " ; A 
Hiif l*n(AH>>9 then goto HSAVE else savé 
"cmt:"+AH,69FFD,6FFFF:gato HEXIT 
2060' 

2070' Kontrola správnosti nahravani mgf 
2080' 

2090HVERIFY: input " <vWJmeno souboru t “ 
iAHsif len<AH)>9 then goto HVERIFY else 
verify AHsgoto HEXIT 
2100 ' 

2110' Nahrani dat z magnetofonu 
2120 ' 

2130SLQADs input “ v|4Jaeno souboru t “ ; A 
Hiif len(AH)>9 then goto HLOAD else old 
"cmt: "+AH: CTC-peek ( 69FFE ) : SIGN-peek <69FF 
D) 

2140 if abs <CTC> >8 then BASE#*CTC*2. 2222 
22222222E-3# else BASE*=0. 00614# 

2150 if SIGN-0 then BASE*— BASE# 

2160 viewsprínt cursor ( 5,3) ; numH < 1000*BA 
SE#, 4, 2) : view 0, 16,39, 23cgoto HEXIT 
2170' 

2180' Spuštěni sběru dat 
2190' 

2200HRUN 

2210 print "Jftlastav Tv <; ,s ,RETURN>” 
2220HDISPTVs viewsprínt cursor <5 ,3) i numH ( 
1000*BASE#,4,2) 

2230HADJTV: AH-inkeyHsif AH-"" then goto 
HADJTV else if ascii (AH) -13 then goto H 
HOTOVO 

2240 if AH-"»" then if SIGN-0 and CTC<25 
5 then CTC-CTC+1 else if SIGN-1 and CTC> 
8 then CTC-CTC-1 else if SIGN-1 and CTC- 
8 then SIGN-0: CTC-14 
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2250 if AH— “ : “ then if SIGN-0 and CTC>14 
then CTC-CTC-1 else if SIGN-0 then SIGN 
-lsCTC-8 else if CTC<255 then CTC-CTC+1 
2260 if CTC-8 then BASE*-0. 00614# eis* B 
ASE#«CTC*2. 222222222222E-3# 

2270 if SIGN-0 then BASE#— BASE# 

2280 goto HDISPTV 
2290HHOTOVO 

2300 poke 69FFD, SIGN, CTC » if CTC<19 then 
G-4 else if CTC<184 then G-3 else G-2 
2310' 

2320' Vstup a vypočet podmínky 
2330' 

2340HPODH s Q , E— 0 ivl ew 0, 16 ,39,23: input "Ji 
-vMPODMINKA : ía,n),C8x{0,l ,x> 3“ s AH ,B 
H 

2350 if AH- “ n ” then BH-rptH (8 , “-“) :Q«6FF 
sgoto HDISPOD 

2360 if len <BH) < >8 then goto HPODH 
2370 for 1-0 to 7 
2380 AH«midH <BH,8-I , 1 ) 

2390 if AH= M 0" then E=E+2"I:goto HDALSI 
2400 if AH— ” 1 " then E-E+2"'I :Q«Q+2^I i goto 
HDALSI 

2410 if AH< > B x ” then 1-10 

2420HDALS I : nex t I 

2430 if 1=10 then goto HPODH 

2440HDISPOD: view: print cursor <20,3)sBH:v 

iew 0,16.39,23 

2450' 

2460' Vstup vstupního portu 
2470' 

2480HINPORTS input " KWXWX PORT s “;C 
2490 if C<0 or 0255 then goto HINPORT 
2500 viewsprínt cursor <34 ,3) ; r i ghtH (hexH 
(C) ,2) : view 0,16,39,23 
2510' 

2520' Vlastni spusteni sběru dat 
2530' 

2540 print “Wa <w a a wWCekam na 

spusteni “;:if AH=”n“ then print “RESET. 
” else print “podmiffwfnkou. “ 

2550 if SIGN— 0 then call 67BFF , , CTC*256+ 
C,Q*256+E eis* if CTC>8 then call 67900, 
, CTC+256+C , Q*256+E else if AH-"n“ then c 
all 67A8F , , C eis# call 67962 ,, C , Q*256+E 


CALL 

POP 

RET 


KONEC 

HL 


BEGIN: 


Dl 


;uz je-zakaz 

POP 

DE 

S vyber n avr . adr , 

LD 

SP, (OLDSP) ; původní SP 

PUSH 

HL 

sposledni adres. 

PUSH 

DE 

jnavratova adr. 

CALL 

01C2H 

SCTCINT . 

LD 

A.0E0H 

;EI pro VDP 

DUT 

< 1 1H) , A 


LD 

A,31H 

; do R1 VDP 

OUT 

( 1 1H> , A 


CALL 

0CA3H 

jVREGI 

CALL 

RET 

01DFH 

S CTC3SP 

INI 


; seber data 

CP 

H 

5 H— 07 

El 


;zas povol 

RÉTI 


i a zpátky 

Dl 


sinicializace 

LD 

A.43H 

; Dl pro CTC 

OUT 

(00H) , A 

;ctc #0 

OUT 

(01H) , A 

;ctc #1 

OUT 

<03H> , A 

sete #3 

LD 

A.0C7H 

sete #2 bude 

OUT 

(02H) , A 

3 v modu citac 

LD 

HL , INTCT2 s adresa 

LD 

(7004H) 

,HL sppgm sběru 

POP 

HL 

s navrat. adr. 

LD 

(OLDSP) 

,SP s schovej SP 

LD 

SP , OLDSP— 2 ;novy SP 

PUSH 

HL 

suloz nav. adr. 

LD 

HL.0A000H s zacatek RAM 

RET 


spro data 


2560 poke 69FFF,peek (6A000) : goto HEXIT 
2570' 

2580' Mereni kmitočtu 
2590' 

2600HFRQ 

2610 if HL+X— LAB then goto HLOOP else vi 
ew 0,6,31 ,6: input “Linka {0..7J - “jTsif 
T<0 or T>7 then goto HFRB else if HL+X> 
LAB then call 67BDD,T*256, .HL+X-LAB+l ,LA 
B eis* call 67BDD,T*256, .LAB-HL-X+l ,HL+X 
2620 if reg(3)<2 then pokew 67268,0 
2630 print “ f “ ; T s “ -“»numH(reg<3)*500#/a 
bs (BASE#) /abs (LAB-HL-X) ,7,2) Hz“» 

2640' 

2650' Cekáni na stisknuti klávesy 
2660' 

2670HCEKEJ : repeat s AH-i nkeyHs unt i 1 AH< >* “ 
2680 printsview 0,0,31 ,7: goto HCOHHAND 
2690' 

2700' Obslouženi chyby INPUT nebo CHT 
2710' 

2720HERR:if err»25 then résumé else if e 
rr— 18 then print "WGCHYBA HGF !“ssleep 1 
s résumé 

2730 print "Err err s "in"? errl 



f LOGICKY ČASOVÝ ANALYZÁTOR 


; SCOPWARE COPYRIGHT 1987 




ORG 

7900H 


OLDSP 

EDU 

7FEFH 

STOS 


S SBĚR 

DAT OD 

20 MIKROSEKUND 

S VSTUP 

: B.. 

.konstanta pro CTC 

; 

C.. 

.vstupní port 

s 

D. . 

startovací podmínka 

l 

E. . 

.maska start. podm. 

• 



START: 

CALL 

BEGIN 

P0DH1 : 

IN 

A,(C) s vstup dat 


AND 

E s maska 


XOR 

D s podmínka? 


JR 

Z, SPLŇ sáno 


IN 

RLCA 

A, (S0H) 


JR 

NC.PODHl s nebyl o RESET 

SPLŇ: 

LD 

A.B 


OUT 

(02H) ,A skonst. do CTC 


LD 

A,81H ;DI pro VDP 


OUT 

( 1 1H> ,A 


OUT 

(11H) , A s do Rt VDP 


El 

3 pro CTC #2 


XOR 

A 3 A— 0 

HLT : 

HALT 

3 cekej na INT 


JP 

NZ.HLT sněni konec 


RYCHLY SBĚR DAT 6. 14 HIKROSEK. 


5 VSTUP s C. ..VSTUPNÍ PORT 


3 

D. . . 

STARTOVACÍ 

PODMÍNKA 


' 

E... 

MASKA 



3 — —— ■ 

===—== 




INIT : 

Dl 


izakaz INT 



LD 

HL , 0A000H s odkud RAM 


LD 

B ,0 

3 256x 


LOOP: 

IN 

A, (C) 

3 data 



AND 

E 

; maska 



CP 

D 

SPodminka 



JR 

NZ.LOOP 

3 jest* ne 


FSBERi 

INIR 


3 vlastni sbe» — 


RET 

NZ 

3 -instrukce 


INIR 


3 INIR a RET NZ 


RET 

NZ 

3 se opakuji 


INIR 


3 192x 



RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 


INIR 



RET 

NZ 

RET 

NZ 




INIR 





RET 

NZ 




INIP. 





RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





REB 

NZ 




INIR 





RET 

NZ 




INIR 





El 


3 pOVOl “ 



RET 


3 - a je to 


tRYCHLY SBĚR DAT BEZ PODMÍNKY 

5 

5 VSTUP s C. ..port 


LD 

ADD 

CALL 

LD 


A.D 
A. 7 
0454H 
A.D 


jcísla spritu 
5 vypočti 
jSTSCOD 
;c. spritu 


3 «E«*«a3ii 




ADD 

A. 7 

J vypočti 

FSBRES* 

Dl 

jzakaz INT 


CALL ' 

0445H 

jSTSCOL 


LD 

HL.0A000H s odkud RAM 

1 

LD 

B.D 

; parametr 


LD 

B.0 * 256:: 


DJNZ 

PREV 

; B:< 

FSBRE1: 

1N 

A. (S0H) 


RET 


; konec 


RLCA 

lbylo RESET? 

5 





JP 

NC.FSBRE1 ; nebyl o 

TREDL: 

DB 

0A4H.05H 

, 8ASH . 08H 


JP 

FSBER * sbírej 

? 





ZOBRAZENI JE DNE OBRAZOVKY 
scopHare /C/ 1987 


HLEDANÍ a OD hl . DELKA-bc 




HLEDEJ: Dl 

jzakaz INT 

VSTUP i DE. 

..adresa značky 

CPIR 

jhledej 

HL. 

..odkud zobrazit 

El 

J povol INT 



RET 

J vrat se 


OBRAZ i 


0BR1* 


Dl 

PUSH 

PUSH 

POP 

LD 

CALL 

INC 

BIT 

JR 

POP 

CALL 

RET 


DE 

HL 

IX 

E.0 

OBRSLO 

E 

5.E 
Z .OBŘI 

Sn. 


tzakaz INT 
jadr .značky 
s odkud- >IX 

jod 0 . sloupe* 
; s loupač 
jdal si 
j všech 32? 
j jeste na 
i adr. značky 
I zobraz značku 
j hotovo 


j ZOBRAZENI JEDNOHO SLOUPCE < 8 bit> 


E.. .cisto sloupce 
IX.. odkud v parna ti 


ZOBRAZENI ZNAČKY 


J 

J VSTUP 

! «... 

.poloha 

značky 

J 

ZOBZNA* 

LD 

A.H 

jhl >255? 


OR 

A 



JR 

Z.DRAM3 jneni 


LD 

HL.-l 

j nekresl i 

DRAH3* 

LD 

A. 31 

jod spritu 


LD 

B .8 

j 8 spritu 

PMOVE* 

PUSH 

BC 



PUSH 

HL 



PUSH 

AF 



CALL 

042BH 

jGTSPOS 


POP 

AF 


.. |. , 

POP 

HL 



PUSH 

AF 



CALL 

03CEH 

jMVSPA 


POP 

AF 



POP 

BC 



DEC 

A 

jdalsi ser: 


DJNZ 

PMOVE 

jSx 


El 

RET 


RESULTi DS 


; povol INT 
! navrat 


jpro vypocty 


S POSUNUTI SPRITU PO OSE X 

} 

s VSTUP : HL. ..nova x-ova sour. 


SPRSUN* LD A, 23 jpoc.spr. 

MOVEl PUSH HL 

PUSH AF 

CALL 042BH jGTSPOS 

POP AF 

POP HL 

PUSH AF 

CALL 03CEH iMVSPA 

POP AF 

CP 8 tja 8 . sprit*? 

JR NZ.MOVl jnani 

LD DE.B008H jrozdil 


J 

OBRSLO* LD 

PUSH 
CALL 
ADD 
AND 
RLCA 
RLCA 
' RLCA 
LD 
LD 
LD 

TRANS1: LD 
LD 
LD 
XOR 
LD 

TRANS 2: RRC 
RL 
INC 
RRCA 
RL 
INC 
DJNZ 
INC 
LD 
LD 
DJNZ 
LD 
LD , 
LD 
LD 
OUT 
OUT 
LD 
LD 


CPL 

LD 

CPL 

OR 

OUT 

LD 

LD 

INC 

INC 

OUT 

NOP 

DJNZ 

INC 

OR 

OUT 

LD 

DJNZ 

POP 

RET 


HL.3900H jL.H.roh 


DE 
14C5H 
A.E 
1FH 


; schovej E 
j GB VRAH 
jvypocat první 
j adresy VRAM 
;E. sloupce 


DRANÍ* 


E.A jlsb->E 

A. dX-ll * minuly stav 

B, 8 *8 byte 

C. B ischovei citac 

HL.RESULT tvysledek 

D, < IX) jdata 

D * hrany 

B.8 j 8 bitu 

D * vez a i bit 

. (HL) jzaroluj 
HL 

jzaroluj hrany 
íHL) jdo výsledku 

HL idalsi vy slad. 

TRANS2 jcel y byte 

IX jdalsi data 

A. D minula data 

B. C icitac bytu 

TRANS1 jdalsi byte 

Ď.6CH jasb adr. VRAM 

BC.B811H jport il a 8x 
IY.RESULT j výsledek 
L.B i schovej citac 

<C) .E j adresu do VDP 

<C» .D 


DRAN2: 


j POSUNUTI OBRAZOVKY VLEVO O 8 



SBC 

HL.DE j poloh x 

i 



HOVtí 

SUB 

1 jdalsi sprit# 

j VSTUP j DE.. 

.poloha značky 


JR 

NC.MOVE j jeste opakuj 

J HL.. 

.odkud v 

paměti 

? 

RET 

juz ne 

'l-r-timmmwmmnwmmm 

1 

• 

« 

1 

i 

! 

-r— r-r 

t 

? 



? 

LSUNSt PUSH 

DE 

f adr. značky 

1 PŘEVOD NA 

BIN. TVAR PRO SPRITY 

PUSH ♦ 

HL 

jodkud-MX 

. > 



POP 

IX 


j VSTUP: 

: E.. 

.číslo 

CALL 

PRIPRA 

« inicializace 

j 



LSUN81; LD 

C.B 

j citac radku 

J mmmmmm* 

■ea*0*eea««eeMsa0sa>aenB 

LD 

B.E 

l20H*d*lka rad. 

J 



LSUN82* INC 

A / 

jnovy znak 

PŘEVOD: 

LD 

B .8 j 8 bitu”byt* 

AND 

1FH 

: modul o 32 

l*REV* 

LD 

D.B : schovej citac 

OR 

D 

»3 vrchní bity 


LD 

HL, PŘEDL * Předlohy 

CALL 

14BDH 

jPBVRAM 


RLC 

E 

INC 

HL 

jdalsi znak 


JR 

NC.PREVt jbit-0 

DJNZ 

LSUNS2 



INC 

HL j druha předl. 

EX 

AF.AF * 

jschov.posl .ztli 


INC 

HL 

LD 

A.D 

i3 vrchní bity 

PREVli 

LD 

C, (HL) jvezei předl. 

LD 

D.0 

jpro dalsi rad. 


INC 

HL 

ADD 

HL.DE 

: adresa p.d.r. 


LD 

B, (HL) ja ulož ji 

ADD 

A.E 



LD 

D.A 

Jbity zpět 

EX 

AF.AF 

'jposledni znak 

LD 

B.C 

j citac radek 

DJNZ 

LSUN81 

J dal si radek 

LD 

DE , 248 

J posl *d . sl oupec 

ADD 

IX. DE 

; vpravo 

LD 

E.1FH 

Jto je on 

JR 

SKONČI 

t dokonči 


POSUN OBRAZOVKY VPRAVO 0 8 
VSTUP * Jako LSUN 8 


RSUNS* PUSH 
PUSH 
POP 
CALL 
DEC 

RSUN81* LD 
LD 

RSUN82* AND 
OR 
CALL 
INC 
INC 
DJNZ 
EX 
LD 
LD 
ADD 
ADD 
LD 
EX 
LD 
DJNZ 
LD 

SKONČI* CALL 
POP 
JP 

I 


PRIPRA* Dl 
LD 
LD 
CALL 
LD 
RET 


DE 

HL 

IX / 

PRIPRA 

A 

C. B 
B.E 
1FH 
D 

14SDH 

HL 

A 

RSUN82 
AF ,AF ‘ 
A.D 

D. 0 
HL .DE 

A. E 

D. A 
AF.AF" 

B. C 
RSUN81 

E. 0 
OBRSLO 
ML 

ZOBZNA 


; adresa značky 
jodkud->IX 

; inicializace 
jnovy znak 
j citac radku 
sdel.radku«20H 
; Modul o 32 
j nejvýš. 3 bity 
jPBVRAM 

; adr. dal s. znaku 
jdalsi znak 

jschov.posl.zn. 
j z vets. nejvýš, 
i 3 bitu ola 
; vypočet adresy 
jpro dal. radek 
jbity zpět 
jposl.znak zpět 
j citac radku 
jnovy radek 
ji. sl . zleva 
; křesl i sloupec 
j adres* značky 
j křesl i značku 


jzakaz INT 

HL.3900H jadr. 1. znaku 
B.B j 8 radku 
14C5H : GB VRAM 

DE.8B20H * 3b a dsl.rad. 
jvrat se 


HERENI PRŮMĚRNÉHO KMITOČTU 

VSTUP * A. ..linka 0-7 

DE.. délka useku RAM 
HL.. odkud v RAM 

VYSTUP* HL. .pqcst hran -I 


A, (IY) 

jdata 

MERPER* 

Dl 

B. (IY+í) 

j hrany 


INC 

.... •: 



LD 

X 

j úroveň L 


LD 

H.A v 

; schovej 

MERLP* 

RLCA 


i úroveň H 


DJNZ 

B 

j přidej hrany 


PUSH 

í 10H) ,A 

j úroveň H 


POP 

A . 8 



LD 

B .6 

j 6 x hrany 


LD 

D 

jdalsi radek 

MERls 

LD 

IY 

j připrav 


XOR 

(10H) .A 

j křesl i hrany 


INC 




DEC 

DRAM2 

j opakuj 6 x 


AND 

IY 

jdalsi data 


JR 

H 

jpridej hrany 


INC 

(10H) .A 

j křesl i L 

NEHRÁN* 

LD 

B.L 

j citac 


OR 

DRANÍ 

jdalsi radek 


JR 

DE 

j obnov E 


El 


j navrat 


RET 


A 

I.A 

A.B0H 


jzakaz INT 
i vypočet easky 


MERLP 

HL 

IX »odkud->IX Y 

HL.-l * počet hran-1 

C.A jeaska do C 

A.lIX-1) * šinul a data 
(IX) jpor.se soucas. 
IX jdalsi data 

SE jcit.dsl. useku 

C j zaeasku j 

Z. NEHRÁN jnebyl* hrana 


HL 
A.D 
E 

NZ.NER1 


jbyla->zvets 

íDE-0? 

J jeste ne 

J povol 
j navrat 


SBĚR DAT S UKONC OVACI PODMÍNKOU 

VSTUP t B... konstanta pro CTC 

C. . . vstupní port 

D. . .podmínka 

E. ..maska podmínky 


CALL 

BEGIN 

jinicializacs 

LD 

A.B 

* ca*. konst . CTC 

OUT 

(02) .A 


LD 

A.81H 

*DI pro VDP 

OUT 

U1H) .A 


OUT 

( tlH) .A 

jRl VDP 

XOR 

A 

jA*0 

El 


: povol 
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FILL: 

HALT 


; cekej. az se 


JR 

ŇZ .FILL 

i paměť záplni 


LD 

HL.UPINT2 ; plno-zraen 


LD 

< 7004H ) 

, HL ;proced. INT 


LD 

HL , 0A000H : počat. adr. 

RPTs 

IN 

RLCA 

A, (50H) 

S smyčka cekáni 
sRESET? 


JP 

NC.RPT 

; nebyl o 

C HALAS: 

CALL 

KONEC 

; úkone i 


POP 

HL 

: adr. začat, dat 

, 

JR 

POSUN 

j posun pamet 


UPINT2: 

EX 

AF , AF ‘ 

schovej AF 


IN 

A, <C> 

data 


LD 

(HL) .A 

ulož 


AND 

E 

maska 


XDR 

D 

podm.spl nena? 


JR 

Z, VEN 

ano- >skonci 


EX 

AF , AF 

vrat AF 


INC 

HL 

dalsi adresa 


BIT 

7.H 

HL je uz 0? 


JR 

NZ.UP121 

5 ne 


LD 

H.0A0H 

ano- >HL-A000 

UPI21 : 

El 


povol 


RÉTI 


navr.do smyčky 

VEN: 

CALL 

1S6DH 

ISNORJ 


POP 

DE 

, znič navr.adr. 


EX 

AF , AF ‘ 

.vrat AF 


JR 

CHALAS 

;a vrat se 

: POSUN 

USEKU 

RAM 0A000H 

- 0FFFFH 

VSTUP 

H1 

ADRESA. JEJIZ OBSAH 


PATŘI 

NA ADRESU 

0A000H 

POSUN: 

PUSH 

HL 



LD 

HL.2000H 

ssehov. předl . 


LD 

DE . 3000H 



CALL 

0B81H 

5 BLKMV2 


POP 

HL 



Dl 


;zakaz INT 


LD 

A.0D0H 

íPul RAM 


CP 

H 

j která? 


JR 

C.PUL2 

$2. pul ka 


PUSH 

HL 



LD 

DE.6B00H 


ADD 

HL , DE 

; -0A000H 


HOTOV: 

PUL2: 


.LD 

LD 

LD 

OR 

JR 

LD 

LD 

LD 

CALL 

Dl 

LD 

LD 

POP 

PUSH 

SBC 

LD 

LD 

EX 

LD 

LDIR 

LD 

POP 

ADD 

LD 

LD 

LD 

LD 

CALL 

JR 

POP 

JR 

XDR 

PUSH 

EX 

LD 


LD 

SBC 

LD 

LD 

EX 

LD 

LD 

CALL 

Dl 

POP 

LD 

ADD 

LD 

LD 

EX 

DEC 

LD 


i 

1 


■■■■■.■■ ■ ' ' ' 


B, H 

C. L : BC-del ka 

A. H 
L 

Z, HOTOV jnesoupej 
HL , 0A000H 

D, L 

E. L ;DE»0 

0E61H ; RAM-VRAH 

H,B 

L.B sHL-0 

DE 

DE 

HL , DE 

B. H 

C. L ; BC-del ka 

DE . HL s HL -odkud 

DE.0A0O0H 

BC.6000H 

HL 


HL.BC 

; -0A000H 

B. H 

H.C 

C. L 

; BC-del ka 

L.H 

5 HL— 0 

0E7DH 

íVRAM-RAH 

OBRINI 

HL 

OBRINI 

A 

lCY-0 

HL 

DE.HL 

H.A 

L.A 

HL.DE 

B. H 

C. L 

; BC-del ka 

DE.HL 

; HL-odkud 

D. A 

E. A 

- DE— 0— kam 

0E61H 

; RAM- VRAH 

DE 

HL.60W8H 

HL.DE 

B. H 

C. L 

5 BC-del ka 

DE.HL 

HL 

* HL-odkud 

DE.0FFFFH 


LDDR 



EX 

DE.HL 


XOR 

A 

;CY=0 

SBC 

HL.DE 


LD 

B.H 


LD 

C.L 

; BC-del ka 

* INC 

DE 

SDE-A00BH 

LD 

L.A 


LD 

H.A 

j HL-0-od 

CALL 

0E7DH 

; VRAH— RAM 

INICIALIZACE 

VRAH PO 

POSUNUTI 


OBRINI: 

XOR 

A ; A-0 


LD 

BC.2S00H : nuluj VRAH 


LD 

HL.BSB0H ; od barev 2. 


CALL 

0EB1H sPADVRH 


LD 

A.1EH ;cer+seda 


LD 

BC.0800H 


LD 

HL ,0 : bar. pro l.tre. 


CALL 

0E01H jPADVRH 


LD 

DE.2000H 


LD 

HL.3000H ; vrat předlohy 


CALL 

0B81H ; BLKHV2 


Dl 

; z akaz INT 


LD 

HL.0C00H 


CALL 

149FH ; STVWAD 


LD 

B.0 s barvy pro 

OB INI: 

LD 

C.B ;2.a 3. třetinu 


LD 

B.8 


LD 

HL. BARVY 

0BIN2: 

LD 

A, (HL) 


OUT 

( 10H) ,A 


INC 

HL 


DJNZ 

0BIN2 


LD 

B.C 


DJNZ 

OBIN1 


El 

; uz povol 


RET 

: vrat se 


BARVY: DB 

81H.0A1H.0A1H 

DB 

0A1H.0A1H.0A1H 

DB 

0A1H.71H 

END 




Ing. Martin Štěpánek, J. Jovkova 3256, Praha 4 


Multiprocesový operační systém ZX MULTITASKING pro počítače ZX Spectrum umožňuje „existentt vfce 
programů v počítači a může zabezpečit jejich současný běh. Jedná se tedý o no vé mo žnosti používáni 
sjafcými jsme se doposud setkávali jen u větších počítačů. Operační systém je navržen tak, že pra cuie se všemi 
druhv orooramů (BASIC, strojový kód, Pascal atp.), pouze se dvěma omezeními: maximální yebkoetjednoho 
programuje 38016 bajtů místo 48 kB (musí totiž zbýt ještě místo na druhý proces - miramálnél 0368 
a prostor pro operační systém) a uživatelským procesům nejsou povoleny některé akce, které se týkají režimu 
přerušeni procesoru. 


V systému ZX MULTITASKING může- 
me například provozovat, ladit ne- 
bo vytvářet program na počítači, 
který počítá zároveň jiný program (vy- 
užití čekacího času při dlouhotrvajících 
výpočtech). Další možností je využívání 
různých pomocných programů při 
práci s hlavním programem. Jako po- 
mocný program můžeme mít například 
kalkulátor (viz příloha — program KAL- 
KULÁTOR/ZÁPISNlK), kde si pro- 
vádíme pomocné výpočty a poznámky, 
aniž bychom ovlivňovali hlavní pro- 
gram. Velmi výhodnou možností je 
využití multitaskingu pro elektronický 
diář, kde jako paralelní proces běží 
diář, který nás v době schůzek, vzkazů 
a jiných událostí může upozornit akus- 
tickým signálem a vypsat zprávu na 
monitor. 

Podstatným rysem operačního sy- 
stému ZX MULTITASKING je, že uživa- 
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tel navrhuje programy běžným způso- 
bem, vytvořené programy jsou zcela 
normální (bez úprav) a fungují i na 
počítači bez tohoto operačního sy- 
stému! 

Operační systém ZX MULTITASKING 
může pracovat se ZX Microdrive, ZX 
Interface l, joysticky, tiskárnami a dal- 
šími perifériemi bez omezení. 

ZÁKLADNÍ POJMY 

Abychom plně využili možností popi- 
sovaného operačního systému, mu- 
síme si nejprve něco povědět o základ- 
ních pojmech, se kterými se budeme 
během práce setkávat 

PROCES — je sled činností pro- 
váděných s určitými daty. Procesem 
zde tedy rozumíme nejen běh vlastního 
aplikačního programu, ale například 
i jeho editování, vypisování listingu 
a pod., kdy vlastně běží určitá část 
operačního systému v ROM a operuje 
s daty, kterými je zde náš aplikační 
program. 


MULTITASKING — je označení pro 
pseudoparalelní zpracování více pro- 
cesů. Z hlediska uživatele se zdá, že 
procesy probíhají zároveň, ve skuteč- 
nosti však procesor střídavě pracuje 
buď pro jeden, nebo pro druhý proces. 

přidělení procesoru procesu 

— znamená, že procesor je plně 
k dispozici potřebám procesu. Často 
říkáme, že proces je obsluhován. 

AKTIVNÍ PROCES — je proces, kte- 
rému je trvale přidělen nebo automatic- 
ky střídavě přidělován procesor. 
V konkrétním okamžiku tedy může, ale 
též nemusí, být procesu přidělen pro- 
cesor. Pokud je aktivních procesů více, 
je jasné, že procesor může být 
v každém okamžiku přidělen pouze 
jednomu z nich. 

PASÍVNÍ PROCES — je takový proces, 
kterému trvale není přidělován proce- 
sor. Proces je jakoby zmrazen v určité 
své fázi a nevyvíjí se, dokud se nestane 
opět aktivním. 


PROCES NA POPŘEDÍ — je proce- 
sem, který má neustále přistup ke 
klávesnici, a proto jen s ním můžeme 
komunikovat. Na popředí je tedy 
v dané době hlavní proces. Dále platí, 
že na popředí je vždy jen jeden proces. 

PROCES NA POZADÍ — nemá přístup 
ke klávesnici standardní rutinou 
z ROM, takže se může pouze vyko- 
návat, ale nemůže komunikovat. Tento 
fakt pozadí je nezbytný, protože, kdyby 
mělo popředí i pozadí přístup ke 
klávesnici, nedalo by se při stisku 
klávesy vlastně určit, ke kterému pro- 
cesu stisk patří (protože oba běží 
paralelně). Pokud ovšem potřebujeme 
s procesem na pozadí komunikovat, 
operační systém nám umožní záměnu 
popředí s pozadím. 

UCHOVÁVÁNÍ OBRAZOVKY PROCE- 
SU — je zachování obrazové informace 
příslušné procesu nezávisle na proce- 
sech ostatních. Obrazovku mohou 
uchovávat oba procesy, nebo jen pro- 
ces na popředí, případně žádný 
z procesů. 


ZPŮSOB ZAVEDENÍ systému 

Do prázdného počítače nahrajeme 
program zápisem povelu LOAD “zx- 
multi“. Program se sám spustí a dotáže 
se nás na některé základní parametry. 
Základní hodnota bývá uvedena 
v závorce za otázkou a pokud s ní 
souhlasíme, nic nezadáváme a stiskne- 
me jen ENTER. Stejné se zachováme, 
.pokud na otázku nejsme schopni od- 
povědět. 

První dotaz se tyká odděleného 
uchovávání obrázku, část paměti urče- 
ná pro zápis informace, která se zobra- 
zuje na monitoru, se totiž může, ale též 
nemusí, uchovávat. Pokud se ucho- 
vává, má každý proces svou obrazov- 
ku. Pokud se neuchovává, mají sice 
procesy obrazovku společnou, ale mo- 
hou se výrazné zlepšit časové charak- 
teristiky běhu obou procesů a je 
k dispozici více paměti. Proto, pokud 
společná obrazovka není na závadu, 
volíme raději tento režim. Následující 
dotaz se týká rozdělení paměti mezi 
procesy. Rozdělení pracovní oblasti se 
dosáhne zadáním délky delšího proce- 
su, která je normálně 31104 bajtů (bez 
obrazovky) při neuchovávání obrazov- 
ky a 24192 bajtů (bez obrazovky) při 
uchovávání obrazovky. Nápověda nám 
říká, jak dlouhý má být delší proces, 
pokud je kratším procesem program 
16 kB. K rozdělení je nutné ještě podo- 
tknout, že proces nemůže mít libovol- 
nou délku, ale lze ji nastavovat 
s krokem 3456 bajtů, což je jedna 
pracovní stránka (úprava zadané hod- 
noty na možnou se děje automaticky). 
Při rozdělení je též vhodné se snažit 
o maximální rozdíl délek obou procesů. 
Tehdy je totiž multitasking nejefektiv- 
nější a procesy běží nejrychleji. Posled- 
ním dotazem inicializačního programu 
je doba, po kterou má být proces 
přidělen po stisku klávesy. Pokud jsou 
totiž oba procesy aktivní, přiděluje se 
jim procesor střídavě. Klávesnice při- 
tom patří procesu na popředí. Při stisku 
klávesy ovšem může být procesor 
právě přidělen procesu na pozadí 
a musí dojít k okamžitému přepnutí 
procesu. Aby při souvislé práci 
s popředím nebylo nutné znovu 


a znovu provádět toto zpětné přidělo- 
vání, zůstane procesor bezprostředně 
po stisku klávesy přidělen popředí na 
určitou dobu (právě zde zadávanou). 
Tato vlastnost je zvláště důležitá při 
režimu zachovávání obrazovek, proto- 
že jinak by nám při práci s popředím 
mohla rušivě problikávat obrazovka 
pozadí. 

Po zodpovězení otázek se provede 
inicializace a vytvoření dvou prázdných 
procesů. K dispozici je nejdříve menší 
z procesů (tj. je na popředí, je mu 
přidělen procesor a je aktivní, zatímco 
druhý proces je pasivní). Nyní tedy 
můžeme zapsat — nebo nahrát pomocí 
LOAD — menší proces a poté přejít 
přes menu operačního systému (příkaz 
VYMĚŇ) k druhému, delšímu procesu. 


POPIS FUNKCÍ SYSTÉMU 

Vlastní operační systém ZX MULTI- 
TASKING běží na úplném pozadí dvou 
uživatelských procesů, ke kterým se 
může chovat různým způsobem. Režim 
operačního systému můžeme měnit 
příkazy z jeho menu, které se nám 
objeví při současném stisku kláves 
SYMBOL SHIFT a SPACE. Po celou 
dobu zobrazování menu jsou uživatel- 
ské procesy pasivní. Menu je rozděleno 
na dvě části: příkazovou (vlevo) 
a stavovou (vpravo). 

Stavová část nás informuje o režimu 
operačního systému a procesu. Čtve- 
rečkem je vždy vyznačen proces, který 
je v souladu s nápisem. V prvním řádku 
vidíme délku obou procesů ve strán- 
kách (1 str = 3456 bajtů) a blikáním je 
označen proces, který je na popředí. 
Ve druhém řádku nalezneme, který 
z procesů uchovává obrazovku. V dal- 
ším řádku je informace o aktivitě 
. procesů a o řádek níže zpráva o právě 
přiděleném procesu. 

Příkazová část obsahuje nápovědu 
způsobu volání dále uvedených příkazů 
(příkaz se vždy volá stiskem klávesy 
odpovídající inverzně zobrazenému 
písmenu): 

VÝMĚNA PROCESŮ — způsobí oka- 
mžitou záměnu procesu na popředí 
s procesem na pozadí. Pokud je aktivní 
jen jeden proces, prohodí se přirozeně 
také tato aktivita, takže původní pasivní 
proces na pozadí se stane aktivním 
procesem na popředí. Jestliže se neu- 
chovává obrazovka, musíme počítat 
s tím, že po přepnutí na druhý proces 
zůstane na monitoru stejná obrazovka, 
takže by mohlo dojít k nesprávné 
domněnce, že k přepnutí vůbec ne- 
došlo. 


1 PROCES AKTIVNÍ — aktivním se 
stane právě přidělený proces a druhý 
proces je pasivní. Aktivní proces bude 
zároveň na popředí. 

2 PROCESY AKTIVNÍ — oba dva 

procesy se stanou aktivními a začne jim 
být střídavě přidělován procesor. Cho- 
vání počítače při tomto režimu je různé, 
v závislosti na tom, uchováváme-li 
obrazovky. Pokud se uchovávají obra- 
zovky obou procesů, dojde k jejich 
přepínání (projevuje se střídavým bli- 
káním obrazovek na monitoru). Jestliže 
obrazovky nejsou uchovávány, zapisují 
oba procesy na společné stínítko 
a k blikání nedochází. Ve speciálním 


případě může obrazovku uchovat jen 
jeden proces a tehdy střídavě vidíme 
vlastní obrazovku procesu s ucho- 
váváním a sloučenou obrazovku dru- 
hého procesu. 

ZRUŠENÍ PROCESU — způsobí vyma- 
zání a inicializaci procesu, kterému 
je právě přidělen procesor. Je to 
náhrada za příkaz NEW, respektive 
RAND USR 0, z nichž ani jeden nemů- 
žeme použít, protože by došlo k odpo- 
jení nebo zničení druhého procesu! 

STOP PROGRAMU — zastaví běh 
programu v právě přiděleném procesu. 
Na rozdíl od klávesy BREAK (kterou se 
zde nedoporučuje používat) je tento 
příkaz schopný zastavit i strojový kód. 

ENTER — stisk této klávesy opustí 
zobrazené menu bez změny režimu 
operačního systému. 

Kromě základních příkazů uvede- 
ných v menu existují ještě další méně 
typické příkazy: 

X — stiskem této klávesy provedeme 
zrušení obou procesů a úplnou iniciali- 
zaci systému. 

N — tato klávesa střídavě zapíná 
a vypíná režim uchovávání obrázku 
u pozadí (lze ji ovšem používat jen 
tehdy, pokud jsme při úvodní instalaci 
systému požadovali uchovávání obra- 
zovky). Tuto funkci se však nedoporu- 
čuje příliš používat, protože vzhledem 
ke své zvláštní povaze může často vést 
k poškození procesů nebo ke zhrouce- 
ní systému. Protože funkce mění roz- 
dělení paměti, dochází k přesunům 
bloků paměti, což může mít za násle- 
dek zobrazení nesmyslných znaků na 
obrazovce. Pokud k tomu dojde, není 
to závada a obrazovku příslušného 
procesu můžeme vymazat běžným 
příkazem CLS. 

Po přečtení popisu příkazů bez prak- 
tických zkušeností se může zdát jejich 
používání složité. Pokud si ale vše 
vyzkoušíte v praxi, zjistíte, že složitost 
je pouze zdánlivá a že změny chování 
v důsledku příkazů jsou-zcela logické 
a očekávatelné. 


PRINCIP ČINNOSTI 

Úkolem operačního systému ZX 
MULTITASKING je umožnění existence 
a chodu více programů v počítači 
současně. Protože ve skutečnosti pro- 
cesor nemůže obsluhovat více progra- 
mů zároveň, je paralelní obsluha pro- 
cesů simulována rychlým přepínáním 
procesoru mezi procesy. Při každém 
přepnutí procesoru je ovšem nezbytné 
zapamatovat si přesně stav procesu 
v okamžiku jeho zastavení a uložit 
veškeré informace v registrech proce- 
soru. Při zpětném přepnutí procesoru 
je činnost právě opačná. Registry pro- 
cesoru se naplní původními hodnotami 
a proces pokračuje přesně v tom stavu, 
v jakém byl opuštěn. Přepínání mezi 
procesy se děje automaticky. Přepínací 
program je aktivován periodicky podle 
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přerušováni procesoru vnitřními hodi- 
nami. Protože předání procesoru mezi 
procesy nenastává okamžitě, ale trvá 
určitou dobu, je doba, po kterou je 
procesor přidělen jednomu procesu, 
stanovena tak, aby poměr ztrátových 
časů přepínání k časům běhu procesů 
byl přijatelný. V našem případě je 
procesor přidělován procesu na dobu 
100 ms. Doba přepnutí kolísá podle 
režimu, takže v nejhorším případě je 
ztrátový čas procesoru asi 50 % 
z celkového strojového času a v nejlep- 
ším případě 14 %. 

Přidělování procesoru se řídí násle- 
dujícími zásadami. Pokud je jeden 
z procesů pasivní, je procesor trvale 
přidělen procesu aktivnímu. Jsou-li 
oba procesy aktivní, je procesor střída- 
vě přidělován oběma procesům. Při- 
dělováni je periodické a na stejnou 
dobu. Jestliže ale v tomto režimu 
stiskneme klávesu, je procesor okamži- 
tě přidělen procesu na popředí 
a v následujícím definovaném čase 
(mnohem delším než základní čas 
přidělení procesoru) zůstane procesor 
přidělen „popředí", čímž se zamezí 
zbytečnému opakování této situace při 
komunikaci uživatele s programem 
a zkrátí se odezva procesu na stisk 
klávesy. Poslední možností přidělování 
je nedobrovolné narušení režimu roz- 
dělování strojového času vlivem čin- 
nosti uživatelského programu. Pokud 
totiž uživatelský program zakáže pře- 
rušení (dělají to například příkazy 
BEEP, SAVÉ, LQAD a další), zůstane 
procesor trvale přidělen tomuto proce- 
su, až do povolení přerušení. 

Počítač ZX Spectrum není přizpůso- 
ben na paralelní zpracování dat. Jeho 
systémové proměnné jsou například na 
pevných adresách a nikoli pod ukazate- 
lem, což znamená, že systémové pro- 
měnné musí být uloženy. Podobná 
situace je s obsahem obrazovky, který 
je vždy od adresy 16384. Také progra- 
my jsou většinou vázány na konkrétní 
absolutní adresy a musí se proto 
v rámci přepínání procesu celé přesu- 
novat. 

Z dosud uvedeného vyplývá, že ne- 
sáhneme-li k technickým úpravám po- 
čítače, je jediná možnost realizace více 
procesů jejich přenášení mezi pracovní 
a skladovací pozicí v operační paměti. 
Algoritmus je přitom navržen tak, že se 
nepřenášejí celé procesy, ale jenom 
část paměti rovná délce kratšího pro- 
cesu. Proto má také operační systém 
největší účinnost při maximálním roz- 
dílu délek procesů a neuchovávání 
obrazovky, kdy se přenáší pouze blok 
paměti v délce jedné stránky (stránko- 
vání bylo vynuceno právě nutností 
realizace jednoduchého a rychlého al- 
goritmu přepínání procesů). 

příklad použití 

PROGRAM 

KALKULÁTOR/ZÁPISNÍK 

Program KALKULÁTOR/ZÁPISNÍK 
je ukázkou využívání výhod paralelních 
programů pod systémem ZX MULTITA- 
SKING. Program, jak název napovídá, 
umožňuje provádění běžných aritme- 
tických výpočtů a zapisování výsledků 
a jiných poznámek do zápisníkové 
části. Celý program je napsán v jazyku 
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^ INICIALIZACE ^ 


|^Oddélené^jjchovóvdn^obrQ20vl<y^?^^^^^J 


| Rozděleni' operační pcměti ? 

, I 

I Dobo přiděleni po stisku klávesy ? 

■ ■ . * 

I Zavedeni ZX Multitasking 


Q 


X MULTITASKING 


E) 


2achovóni’ stovu (ENTER) 




* j Výměno procesu popředí'’ | ~ 


Jeden aktivní* proces )- 


■ j Dva ak tivní" pr ocesy | - 


■o 


rusém procesu 


3- 


*j Stop programu |~ 


" j t zrušení obou procesu j ]| ~ 


- | (vypínáni obrazovky ) "'~ rlr ' 1 ~| _ 


BASIC a instalujeme ho na pozadí 
hlavního procesu, kterým bude střída- 
vě podle potřeby kalkulátor nebo hlavní 
program uživatele. 

Nahrání kalkulátoru provedeme ná- 
sledovně. Instalujeme operační systém 
ZX MULTITASKING. Uchovávání obra- 
zovky raději požadujeme (abychom pro 
první přiblížení neměli problémy 
s orientací v procesech) a delší proces 
necháme v maximální délce, což je 
délka naznačená v závorce. Po iniciali- 
zaci systému se nacházíme v menším 
procesu a tak můžeme přímo nahrát 
program KALKULÁTOR/ZÁPISNÍK 
příkazem LOAD „kalkulátor**. Poté 
můžeme příkazem VYMĚŇ v menu 
operačního systému (zavolá se součas- 
ným stiskem SYMBOL SHIFT a SPACE) 
přejít k druhému procesu a pracovat na 
něm. Když si potřebujeme něco vypo- 
čítat, zapsat nebo naopak ze zápisníku 
přečíst, přepneme opět příkazem 
VYMĚŇ na kalkulátor. 

Abychom mohli s kalkulátorem pra- 
covat, uvedeme si zde přehled jeho 
příkazů. Předně je nutné si uvědomit, 
že program pracuje ve dvou režimech 
(kalkulátor a zápisník), mezi kterými 
přepínáme stiskem ENTER. Po prvním 
spuštění programu se vždy nacházíme 
v režimu kalkulátoru (nadále se pozná 
podle zobrazení názvu programu 
v první řádce). Kalkulátor očekává 
zapsáni aritmetického výrazu, který má 
vypočítat. Zapíšeme-li tedy například 
12*56, zobrazí se výsledek 672, který se 
zároveň uloží do výsledkové proměnné 
„v*. Ve výsledkové proměnné se vždy 


nachází poslední výsledek. Výsledko- 
vou proměnnou můžeme užít v násle- 
dujícím aritmetickém výrazu (např. v/2 
dá nyní výsledek 336). Zadávat může- 
me libovolné aritmetické výrazy povo- 
lené syntaxí BASICu, tedy obsahující 
i funkce a relace. Nemůžeme použít 
proměnných ve výrazu, kromě výsled- 
kové proměnné „v". Pokud chceme 
poslední výsledek zapsat do zápisníku, 
zapíšeme místo výrazu „1". Když si 
chceme udělat v zápisníku jinou po- 
známku, uvedeme její text znakem- ,4“ 
(např. $Kčs/rok). Dojde-li při výpočtu 
k chybě a přerušení programu, pokra- 
čujeme příkazem GOTO 21 

Do režimu zápisníku se dostaneme 
z kalkulátoru stiskem ENTER. V zápis- 
níku můžeme vybírat jednotlivé řádky 
kurzory „nahoru** a „ddú“. Nový text 
do řádky vložíme stiskem „t“ a zapsá- 
ním textu. Stiskem „!* přeneseme 
samostatnou hodnotu ve vybraném 
řádku do výsledkové proměnné 
„v“. Stiskem ENTER se dostaneme 
zpět do kalkulátoru. 

K ověření také můžeme použít pro- 
gramy „p1“ a i,p2*\ které nahrajeme 
každý do jednoho procesu, oba je 
spustíme a režim systému nastavíme 
na dva aktivní procesy. Velmi názorně 
tak uvidíme, jak systém střídavě při- 
děluje procesor. Do většího procesu (o 
dostatečné velikosti!!!) také můžeme 
nahrát nějakou hru pro 16 kB Spec- 
trum, například „mazeman", na níž si 
můžeme vyzkoušet i zastavení jejího 
strojového programu funkcí STOP 
v operačním systému. 



1 CLEAR 29999: LOAD M "CODE 
5 INK 1: PAPER 6: BGRDER 7 

10 CLS : PRINT "ZX MULTITASKING % Stepanek '87 

11 PRINT AT 20,0; PAPER 5; "ENTER-uzi je hodnotu v závorce !!": 
PRINT "NEVÍTE— LI STISKNETE ' ENTER' ! 

12 PRINT AT 3, 0; "Gddelene uchováváni obr.: (NE)": INPUT "Ano/N 
e ? " ; o* 

14 LET spodek=23296: IF o*="a" THEN LET spodek=16384: PRINT A 
T 3, 26; "ANO " 

16 PRINT : PRINT "ROZDĚLENI PAMĚTI PRO DVA PROCESY" 

18 PRINT : PRINT “DELSI PROCES BEZ SCR=(31 104) " : PRINT PAPER 
5; AT 12, O; " (Pro *mensi'=16KB zadejte 24000)": IF o*="a" THEN PR 
INT AT 7,22; "24192"; AT 12,26; PAPER 5; "17000" 

19 INPUT "Kolik bytes? ";v*: IF v*= M " THEN LET sv»=(o*="a")*7+ 
(o*<>"a“>*9: GO TO 22 

20 LET sv=INT (0.99999+VAL (v*>/3456>: IF sv>9 OR sv>7 AND o*= 
"a" THEN PRINT #0;AT 1,0;"PRILIS VELKÝ !": BEEP 2,30: GO TO 19 

22 LET v=23295+3456*sv 

24 LET sm=10-sv-2*(o*="a"): LET m=23295+3456*sm 

25 IF sm>sv THEN PRINT #0;AT 1,0; "PROCES NENÍ VETSI !": BEEP 
2,30: GO TO 19 

26 PRINT AT 7, 21 ; sv*3456; " bytes"; AT 8, 14; “se scr=" ; sv*3456+69 
12; “ bytes" 

28 PRINT "-konec pridelene RAM=" ; v, "-hodnota RAMTOP =";v-l 

68 

30 PRINT : PRINT "KRAŤ. PROCES BEZ SCR=" ; srn* 3456; " bytes"; AT 1 
3, 14; "se scr=" ; sm*345ó+6912; " bytes" 

32 PRINT "-konec pridelene RAM=" ; m, "-hodnota RAMTOP =";m-l 

68 

34 PRINT : PRINT "PŘIDĚLENI PO STISKU klav.=(2s) ": INPUT "Kol i 
k sekund? ";p*: IF p*=“" THEN LET p=100: GO TO 40 
36 LET p=50*VAL p*: IF p>20O THEN LET p=200 

40 POKE min, spodek— 256* INT (spodek/256): POKE min+l,INT (spode 
k/256): POKE vetsi , v-256*INT <v/256): POKE vetsi+l,INT (v/256): 
POKE menši , m-256* INT (m/256): POKE mensi+1 , (m/256) : POKE vydrž, p 
50 CLS : PRINT AT 0,0; PAPER 6; INK 1;"ZX MULTITASKING vl.O St 
epanek‘87 POVELY: POPŘEDÍ (str) : ";sm;“ ";sv;" v-vymena 

Obr. uchovává: 1-1 aktivni Aktivni proč: 2-2 aktivni 

Přiděleny pr: z-zrus proč Basic zprava: CS-štop prg 

~ ENTER-u chová stav 

52 PLOT 0,167: DRAM 0,-55: DRAW 255,0: DRAW 0,55: PLOT 105,167 
: DRAW 0,-54 

99 RANDOMIZE USR startb 


L 

00020 

00040 

00060 

00080 

OOIOO 

00120 

00140 

00160 

00180 

00200 

00220 

00240 

00260 

00280 

00300 

00320 

00340 

00360 

00380 

00400 

00420 

00440 

00460 

00480 

00500 

00520 

00540 

00560 

00580 

00600 

00620 

00640 

00660 

00680 

00700 

00720 

00740 

00760 

00780 

00800 


; ************************ 
;* ZX MULTITASKING * 
; ************************ 


00820 MEZ DEFW O; MEZI PROČ. 
00840 TEXT DEFW O; ÚVODNÍ INFO 
00860 AKTPROC DEFB 1; AKT. PROCES 
00880 POPŘEDÍ DEFB l;KLAV8tZ0BR 


5 

; c Martin 

STEPANEK 1987 

00900 

00920 

POČET 

STOPB 

DEFB 

DEFB 

0; PRŮCHODY 
0{PR0 BREAK 

BASIC 

EQU 

#12A9 ;MAIN-1 

00940 

00960 

OBA 

VYDRŽ 

DEFB 

DEFB 

0;PRC, ZÁROVEŇ 
120; PO STISKU 

PRAMT 

EGU 

23732 

00980 

MENU 

DEFB 

0; FLAG ZOBRAZ 

RAMTOP 

EQU 

23730 

OlOOO 

TEXTV 

DEFB 

32+128 

UDG 

EQU 

23675 

01020 


DEFM 

/* Vetsi pro/ 

RASP 

EQU 

23608 

01040 


DEFM 

/ces ! / 

CHARS 

EQU 

23606 

01060 

TEXTM 

DEFB 

32+128 

E&RSP 

EQU 

23613 

01080 


DEFM 

/* Menši pro/ 

CHANS 

EQU 

23631 

OllOO 


DEFM 

/ces ! / 

DATADD 

EQU 

23639 

01120 

TEXTA 

DEFB 

32+128 

PROG 

EQU 

23635 

01140 


DEFM 

/ / 

VARS 

EQU 

23627 

01160 


DEFM 

/ / 

ELI NE 

EQU 

23641 

<m@o 


BÉFM 

/ / 

WORKSP 

EQU 

23649 

01200 


DEFM 

/ / 

STKBOT 

EQU 

23651 

01220 


DEFM 

/ / 

STKEND 

EQU 

23653 

01240 


DEFB 

127; COPYRIGHT 

ATTRP 

EQU 

23693 

01260 


DEFM 

/ 1987 Marti/ 

ATTRT 

EQU 

23695 

01280 


DEFM 

/n Stepanek / 

BORDCR 

EQU 

23624 

01300 


DEFB 

32+128 

REPDEL 

EQU 

23561 

01320 

NEZOBR 

DEFW 

0; POZADÍ NEZO 

FLAGS 

EQU 

23611 

01340 

MSG1 

DEFB 

0; BASIC1 MSG+ 

ERRNR 

EQU 

23610 . 

01360 

MSG2 

DEFB 

0; BASIC2 MSG+ 


ORG 

63743 

01380 

01400 

S 

START 

Dl 



DISP 1-23744+5000 


ADRESA 

NI 

N2 

MIN 

SPI 

SP2 

NAVRAŤ 

VETSI 

MENŠI 


DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 


R I ZEN I ; PRCSU 
O; UK. DOLNÍHO 
O; UK. HORNÍHO 
23296; BEZ SCR 
O; SP PROCES 1 
O; SP PROCES 2 
O; NAVRAŤ. ADR 
O; PROCES (MEZ) 
O; PROCES (MEZ) 


01420 

01440 

01460 

01480 

01500 

01520 

01540 

01560 

01580 

01600 

01620 


LD HL, 54399 

LD (VETSI ) , HL; PROČ 

LD HL, 26751 

LD ( MENS I),HL; PROČ 

LD HL, 23296; SPODEK 

LD (MIN) , HL 

JP ZAVED 


STARTX Dl 

CALL VYMEN 
JP ZAVED 


01640 

01660 

01680 

01700 

01720 

01740 

01760 

01780 

01800 

01820 

01840 

01860 

01880 

01900 

01920 

01940 

01960 

01980 

02000 

02020 

02040 

02060 

02080 

02100 

02120 

02140 

02160 

02180 

02200 

02220 

02240 

02260 

02280 

02300 

02320 

02340 

02360 

02380 

02400 

02420 

02440 

02460 

02480 

02500 

02520 

02540 

02560 

02580 

02600 

02620 

02640 

02660 

02680 

02700 

02720 

02740 

02760 

02780 

02800 

02820 

02840 

02860 

02880 

02900 

02920 

02940 

02960 

02980 

03000 

03020 

03040 

03060 

03080 

03100 

03120 

03140 

03160 

03180 

03200 

03220 

03240 

03260 

03280 

0330Ó 

03320 

03340 


STOP IM 1 
RET 

* 

ŘÍZENI Dl ; PARALELNÍCH 
PUSH AF ; PROCESU 
LD A, (STGPB) 

CP 1 

JP Z , BREAK 

XOR A ; CELA KLÁVES 

IN A, (254) 

AND 31 
CP 31 

JP NZ, STISK 

LD A, (OBA); ZÁROVEŇ 

CP O 

JP Z, ROMKEY 
LD A, (POČET) 

INC A 

LD (POČET), A 
CP 10; MEZ PŘEPNUTI 
JP NZ, BEZKEY 
XOR A 

LD (POČET), A 
POP AF 

JP PROCES ; VYMEN 

ROMKEY POP AF 

JP 56 ; POKR. V ROM 

. 

BEZKEY POP AF 
El 

RET ; POKR . BEZ KEY 

BREAK XOR A 

LD (STGPB), A 
__ LD A, (FLAGS) 

RES 7, A 
LD (FLAGS), A 
LD A, 150 
LD (POČET), A 
POP AF 
El 

JP BASIC 


STISK PUSH BC 

LD BC,#7FFE ; "OS" 
IN A, (C) 

AND 31 

CP 28; " SPACE " + “ SS " 
JP Z , MENUQN 
LD A, (VYDRŽ) 

LD B, A 
LD A, 255 
SUB B 

LD (POČET) , A; ZPOZD 
LD A, (AKTPROC) 

LD B, A 

LD A, (POPŘEDÍ) 

CP B 
POP BC 
JP Z, ROMKEY 
POP AF 

JP PROCES ; VYMEN 

POVELY PUSH BC 
POV LD BC, #BFFE 
IN A, (C) 

AND 31 

CP 30 ; "ENTER" 

JP NZ , POVÍ 
POVO CALL MENUOFF 
JP POVKON 

POVÍ LD BC, #F7FE 
IN A, (C) 

AND 31 

CP 30 ; " 1 "PROCES 
JP NZ, POV2 
CALL MENUOFF 
XOR A 

LD (OBA), A 

P0V11 LD A, (POPŘEDÍ ) 

LD B, A 

LD A, (AKTPROC) 

CP B 
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03360 

03380 

03400 

03420 

03440 

03460 

03480 

03500 

03520 

03540 

03560 

03580 

03600 

03620 

03640 

03660 

03680 

03700 

03720 

03740 

03760 

03780 

03800 

03820 

03840 

03860 

03880 

03900 

03920 

03940 

03942 

03944 

03960 

03980 

04000 

04020 

04040 

04060 

04080 

04100 

04120 

04140 

04160 

04180 

04200 

04220 

04240 

04260 

04280 

04300 

04320 

04340 

04360 

04380 

04400 

04420 

04440 

04460 

04480 

04500 

04520 

04540 

04560 

04580 

04600 

04620 

04640 

04660 

04680 

04700 

04720 

04740 

04760 

04780 

04800 

04820 

04840 

04860 

04880 

04900 

04920 

04940 

04960 

04980 

05000 

05020 

05040 

76 


JP Z, P0VK0N 
POP BC 
POP AF 

•JP PROCES ; VYMEN 
i 

P0V2 CP 29 5 "2 “PROCESY 
JP NZ , P0V3 
INC A ;TJ.A=1 
LD (OBA), A 

JP POVO 

, 

P0V3 LD BC, #FEFE 
IN A, <C> 

AND 31 

CP 15 ; "V" VYMEN 
JP NZ , POV4 
CALL MENUOFF 
LD A, (POPŘEDÍ) 

INC A 

LD (POPŘEDÍ), A 
CP 3 

JP NZ , P0V31 
LD A, 1 

LD (POPŘEDÍ) , A 
P0V31 POP BC 
POP AF 

JP PROCES ; VYMEN 

P0V4 * CP 29 ; "Z " ZRUŠ 
JP Z, NEW 
CP 27 }“X “ZAVED 
JP Z, START X 

P0V5 CP 30 ;"CS"BREAK 
JP NZ , POVó 
LD A, 1 

LD (STOPB) , A 
CALL MENUOFF 
JP P0V11 

P0V6 LD BC, #7FFE 
IN A, (C) 

AND 31 

CP 23 ; "N“ NEZOBRAZ 
JP NZ, POV 
LD A, (NEZOBR+l) 

LD BC, O 

LD (NEZOBR) , BC 
CP O 

JP NZ , POVO 
LD BC, 6912 
LD (NEZOBR ),BC 
JP POVO 

POVKON POP BC , 

POP AF 

El 

RET 

MENUON LD A, (MENU) 

CP 1 

JP Z, POV 

LD A, 1 

LD (MENU), A 

CALL VYMEN ; OKÉNKO 

PUSH HL 

LD A, 1 +48+64 ; BARVA 
LD B, O; DÉLKA 256 B 
LD HL.22528fZAC.AT 
ZAKLAD LD <HL),A 
INC HL 
DJNZ ZAKLAD 
STAVYO LD A, (POPŘEDÍ) 

CP 1 

LD A, 1+48+64+128 
JP Z, STAVY! 

LD (22590), A fPOPR 
JP STAVY2 

STAVY1 LB (22588), A fPOPR 
STAVY2 LD HL, (MIN) 

LD A,H 

CP 64 ;«KDYZ 16384 
JP NZ.STAVY5 ; SCR— 
LD A, (NEZOBR+l) 

CP O i * O PRO OBA 
JP NZ, STAVY3 
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05060 


LD 

A, 1+40+64? BARVA 

05080 


LD 

(22620), A f SCR+ 

05100 


LD 

(22622), A ;SCR+ 

05120 


JP 

STAVY5 

05140 

5 



05160 

STAVY3 

LD 

A, (POPŘEDÍ) 

05180 


CP 

1 

05200 


LD 

A, 1+40+64; BARVA 

05220 


JP 

Z.STAVY4 

05240 


LD 

(22622), A ; SCR+ 

05260 


JP 

STAVY5 

05280 

5 — — — 



05300 

STAVY4 

LD 

(22620), A ; SCR+ 

05320 

STAVY5 

LD 

A, (OBA) 

05340 


CP 

0 

05360 


JP 

Z , STAVY6 

05380 


LD 

A, 1+32+64; BARVA 

05400 


LD 

(22652), A ; AKT+ 

05420 


LD 

(22654), A ; AKT+ 

05440 


JP 

STAVY8 

05460 

; — 



05480 

STAVY6 

LD 

A, (AKTPROC) 

05500 


CP 

1 

05520 


LD 

A, 1+32+64; BARVA 

05540 


JP 

Z , STAVY7 

05560 


LD 

(22654), A ; AKT+ 

05580 


JP 

STAVY8 

05600 

5 



05620 

STAVY7 

LD 

(22652), A ; AKT+ 

05640 

STAVY8 

LD 

A, (AKTPROC) 

05660 


CP 

1 

05680 


LD 

A, 1+40+64; BARVA 

05700 


JP 

Z , STAVY9 

05720 


LD 

(22686) , A;PRID+ 

05740 


JP 

STAV 10 

05760 




05780 

STAVY9 

LD 

(22684), A;PRID+ 

05800 

STAV 10 

LD 

A, (AKTPROC) 

05820 


CP 

1 

05840 


LD 

A, (ERRNR) 

05860 


JP 

Z .STAVU 

05880 


CP 

255 ; BEZ ERR 

05900 


LD 

A, 0 

05920 


LD 

( MS62 ) , A | MSO— 

05940 


JP 

Z, STAVÍ 2 

05960 


LD 

A, 1 

05980 


LD 

( MSG2 ) , A ; MSG+ 

06000 


JP 

STAV 12 

06020 

i 



06040 

STAVÍ 1 

CP 

255 ; BEZ ERR 

06060 


LD 

A,0 

06080 


LD 

( MSG 1 ) , A ; MSG- 

06100 


JP 

Z, STAV12 

06120 


LD 

A, 1 

06140 


LD 

(MSGD.A ; MSG+ 

06160 

STAV12 

CALL MSGX 

06180 

STAV14 

POP HL 

06200 


JP 

POV 

06220 

» 



06240 

MSGX 

LD 

A, (MSG1 ) 

06260 


CP 

0 

06280 


JP 

Z.MSGX2 ? MSG 1 - 

06300 


LD 

A, 1+32+64; BARVA 

06320 


LD 

(22716) , A;MS01+ 

06340 

MSGX2 

LD 

A, (MSG2) 

06360 


CP 

0 

06380 


RET Z ; MSG2- 

06400 


LD 

A, 1+32+64; BARVA 

06420 


LD 

(22718), A;MS02+ 

06440 


RET 









06480 

MENUOFF XOR A 

06500 


LD 

(MENU), A 

06520 


CALL VYMEN ? OKÉNKO 

06540 


RET 

06560 







06580 

VYMEN 

PUSH HL { OKÉNKO 

06600 


PUSH DE 

06620 


PUSH BC 

06640 


LD 

HL, 16384; OKNO 

06660 


LD 

DE, 61312; BUFFER 

06680 


LD 

BC, 2048 ; DÉLKA 

06700 

OKNO 

LD 

A, (HL) 

06720 


PUSH AF 

06740 


LD 

A, (DE) 

06760 


LD 

(HL) , A 

06780 


POP AF 

06800 


LD 

(DE) , A 

06820 


INC HL . 

06840 


INC DE 

06860 


DEC BC 


06880 

06900 

06920 

06940 

06960 

06980 

07000 

07020 

07040 ATRIB 

07060 

07080 

07100 

07120 

07140 

07160 

07180 

07200 

07220 * 

07240 

07260 

07280 


XOR A 
CP B 

JP N Z, OKNO 
CP C 

JP NZ.OKNO 
LD HL, 22528; ZAC. AT 
LD DE, 61312+2048 
LD B, O 
LD A, (HL) 

PUSH AF 
LD A, (DE) 

LD (HL) , A 
POP AF 
LD (DE) , A 
INC HL 
INC DE 
DJNZ ATRIB 
POP BC 
POP DE 
POP HL 
RET 


07300 

. 

— 

— 

07320 

ZAVED 

Dl 

; NOVE PROCESY 

07340 


CALL STOP 

07360 


LD 

A, 1 

07380 


LD 

(POPŘED ID , A 

07400 


LD 

A, 0 

07420 


LD 

(NEZOBR+l), A 

07440 


LD 

(NEZOBR), A 

07460 


LD 

(STOPX) , A 

07480 


LD 

(POČET), A 

07500 


LD 

(OBA), A 

07520 


LD 

(MSGD.A 

07540 


LD 

(MSG2) , A 

07560 


LD 

(MENU) , A 

07580 


LD 

HL, ( VETSI ) ; PROČ 

07600 


LD 

(MEZ) ,HL 

07620 


LD 

HL, TEXTV 

07640 


LD 

(TEXT) , HL 

07660 


CALL INIT 

07680 


JR 

N0VYP2 

07700 

STDAL 

LD 

HL, (MENŠI); PROČ 

07720 

- 

LD 

(MEZ > , HL 

07740 


LD 

HL, TEXTM 

07760 


LD 

(TEXT) ,HL 

07780 

STDAL2 

CALL INIT 

07800 


LD 

A, 248 

07820 


LD 

I , A ;ADR=63743 

07840 


IM 

2 

07860 


El 


07880 


RET 

07900 




t 



07910 

NEW 

Dl 

; AKTUALNI PROČ: 

07920 


CALL MENUOFF 

07940 


LD 

HL, (PRAMT) 

07960 


LD 

(MEZ) ,HL 

07980 


LD 

HL, TEXTV 

08000 


LD 

(TEXT) , HL 

08020 


LD 

A, (AKTPROC) 

08040 


CP 

2 

08060 


JP 

Z.STDAL2 

08080 


LD 

HL, TEXTM 

08100 


LD 

(TEXT) , HL 

08120 

08140 


JP 

STDAL2 

5 



08160 

N0VYP2 

Dl 

; TYP AMINUS 

08180 


LD 

IY, BASIC; NAVRAŤ 

08200 


PUSH IY ; ADRESA 

08220 


LD 

IY, #5C3A 


08240 

08260 

08280 

*08300 

08320 

08340 

08360 

08380 

08400 

08420 

08440 

08460 

08480 

08500 

08520 

08540 

08560 

08580 

08600 NP2AM1 
08620 
08640 
08660 


PUSH AF f SIMULACE 
PUSH BC i; ULOŽENI 
PUSH DE ; REGISTRU 
PUSH HL 
EXX 

EX AF, AF’ 

PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 
PUSH IX 
PUSH IY 
LD (SP2) ,SP 
LD BC, 3456 
LD DE, (MIN) 

LD HL, (PRAMT) 

ADD HL, BC 
INC HL 
LD (NI ) , DE 
LD (N2),HL 
SČF 
CCF 


08680 

08700 

08720 

08740 

08760 

08780 

08800 

08820 

08840 

08860 

08880 

08900 

08920 

08940 

08960 

08980 

09000 

SBC. HL, BC 

EX DE,HL 

LDIR 

LD A, (N2+1) 

CP 226 ;HI 57856 

JP Z , NP2AM3 

NP2AM2 LD BC,3456 

LD DE, (N2) 

LD HL, (NI) 

ADD HL, BC 

EX DE, HL 

ADD HL, BC 

JP NP2AM1 

NP2AM3 LD A, 1 ; AKT. PROCES 
LD < AKTPROC) , A 
.JP STDAL 


* 


09O4O*.PROCES Dl J ULOŽENI /NAČTENI 

09060 


PUSH AF 

09080 


PUSH BC 

09100 


PUSH DE 

09120 


PUSH HL 

09140 


EXX 

09160 


EX AF, AF' 

09180 


PUSH AF 

09200 


PUSH BC 

09220 


PUSH DE 

09240 


PUSH HL 

09260 


PUSH IX 

09280 


PUSH IY 

09300 


LD A, (AKtPROC) 

09320 


CP 1 

09340 


JP Z, APLUS 

09360 


JP AMINUS 

09380 

PRZPET 

POP IY 

09400 


POP IX 

09420 


POP HL 

09440 


POP DE 

09460 


POP BC 

09480 


POP AF 

09500 


EX AF, AF' 

09520 


EXX 

09540 


POP HL 

.22560 


POP DE 

09580 


POP BC 

09600 


POP AF 

09620 


El 

09640 


RET 


1 


09680 

APLUS 

LD ( SF 1 ) , SP 

09700 


LD BC, 3456 ; BLOK 

09720 


LD HL, (PRAMT) 

09740 


SCF 

09760 


CCF 

09780 


SBC HL, BC 

09800 


INC HL 

09820 


EX DE, HL 

09840 


LD HL, 54400 

09860 

API 

LD <N1 > , DE 

09880 


LD (N2) , HL 

09900 


ADD HL,BC 

09920 


EX DE,HL 

09940 


LDIR 

09960 


LD HL, (N2) ; ZDROJ 

09980 


LD DE, (NI) iCIL 

ÍOOOO 


LD BC, 3456 ; BLOK 

10020 


LDIR 

10040 


LD HL, (NI) 

10060 


LD A, (NEZOBR+1) 

10080 


LD B, A 

10100 


LD A, (MIN+1 ) 

10120 


ADD A, B 

10140 


CP H 

10160 


JP NZ, AP2 

10180 


LD A, B 

10200 


CP 0 

10220 


CALL NZ , SCRPLS 

10240 


LD A, 2 

10260 

* 

LD (AKTPROC) , A 

10280 


LD SP, (SP2) 

10300 


JP PRZPET 

10320 

; — 


10340 

AP2 

LD BC, 3456 

10360 


LD DE, (N2) 

10380 


LD HL, (NI) 

10400 


SCF 

10420 


CCF 

10440 


SBC HL, BC 

10460 


EX DE,HL 

10480 


SBC HL, BC 


10500 

10520 


JP API' 

1 


10540 

AMINUS 

LD <SP2) ,SP 

10560 


LD A, < NEZOBR+1 ) 

10580 


CP 0 

10600 


CALL NZ, SCRMNS 

10620 


LD BC, (NEZOBR) 

10640 


LD HL, (MIN) 

10660 


ADD HL, BC 

10680 


EX DE , HL 

10700 


LD HL, (PRAMT) 

10720 


ADD HL, BC 

10740 


LD BC, 3456 

10760 


ADD HL, BC 

10780 


INC HL 

10800 

AM1 

LD (NI), DE 

10820 


LD (N2) , HL 

10840 


SCF 

10860 


CCF 

10880 


SBC HL, BC 

10900 


EX DE, HL 

10920 


LDIR 

10940 


LD BC, 3456 ; DÉLKA 

10960 


LD DE, (NI) ; CIL 

10980 


-LD HL, (N2) ; ZDROJ 

ilOOO 


LDIR 

1 1020 


LD A, (N2+1) 

11040 


CP 226 ;HI 57856 

11060 


JP NZ , AM2 

11080 


LD A, 1 

lllOO 


LD ( AKTPROC) , A 

11120 


LD SP, (SPI) 

11140 

11160 

? 

JP PRZPET 

11180 

AM2 

LD BC , 3456 

11200 


LD DE, (N2) 

11220 


LD HL; (Ní) 

11240 


ADD HL, BC 

11260 


EX DE, HL 

11280 


ADD HL, BC 

11300 


•JP AM1 


« 


11340 

SCRPLS 

LD A, (POPŘEDÍ) 

11360 


CP 1 

11380 


JP Z, ULOZSC; SCREEN 

11400 


LD BC , 69 1 2 

11420 


LD HL, <N2> 

11440 


SCF 

11460 


CCF 

11480 


SBC HL, BC 

11500 


LD DE, 16384 

11520 


LDIR 

11540 

11560 

1 

RET 

11580 

ULOZSC 

LD BC , 3456 

11600 


LD HL, (N2) 

11620 


SCF 

11640 


CCF 

11660 


SBC HL, BC 

11680 


EX DE, HL 

11700 


LD HL, 16384 

11720 


LD BC , 69 1 2 

11740 

11760 

11780 


LDIR 

RET 

» * 


11800 

SCRMNS 

LD A, (POPŘEDÍ) 

11820 


CP 2 

11840 


JP Z, ULOŽ ; SCREEN 

11860 


LD BC, 3457 

11880 


LD HL, (PRAMT) 

11900 


ADD HL, BC 

11920 


LD BC, 6912 

11940 


LD DE, 16384 

11960 


LDIR 

11980 

12000 

■ » 

RET 

12020 

12040 

12060 

12080 

12100 

12120 

12140 

ULOŽ 

LD BC, 6912 

LD DE, (PRAMT) 

LD HL, 16384 

INC DE 

LDIR 

RET 

? 


12160 

INIT 

01 

12180 


LD A, #07 

12200 


OUT ( #FE ) , A 

12220 


LD A, #3F 

12240 


LD I , A 

12260 


DEFB 0,0,0, 0,0,0 

12280 


LD HL, (MEZ) 

12300 


XOR A 


12320 


LD BC, 16383 

12340 


SBC HL, BC 

12360 


LD B,H 

12380 


LD C,L 

12400 


LD HL, (MEZ) 

12420 


POP DE jNAVRATGVA 

12440 


LD (NAVRAŤ) ,DE; ADR 

12460 

NULUJ 

LD (HL) , A 

12480 


DEC HL : DEC BC 

12500 


CP B 

12520 


JR NZ, NULUJ 

12540 


CP C 

12560 


JR NZ, NULUJ 

12580 


LD HL, (MEZ) 

12600 


LD ( PRAMT ),HL 

12620 


LD DE, #3EAF 

12640 


LD BC, #00 A8 

12660 


EX DE, HL 

12680 


LDDR ; PLNĚNI UDG 

12700 


EX DE, HL 

12720 


INC HL 

12740 


LD (UDG) , HL 

12760 


DEC HL 

12780 


LD BC , #0040 

12800 


LD ( RASP ) , BC 

12820 


LD (RAMTOP) , HL 

12840 


LD HL , #3COO 

12860 


LD (CHARS) , HL 

12880 


LD HL, (RAMTOP) 

12900 


LD ( HL ) , #3E 

12920 


DEC HL 

12940 


LD SP, HL 

12960 


DEC HL 

12980 


DEC HL 

13000 


LD (ERRSP) , HL 

13020 


LD I Y, #5C3A 

13040 


LD HL, #5CBB 

13060 


LD (CHANS) ,HL 

13080 


LD DE , # 1 5AF 

13100 


LD BC , #00 1 5 

13120 


EX DE, HL 

13140 

. 

LDIR 

13160 


EX DE, HL 

13180 


DEC HL 

13200 


LD (DATADD) , HL 

13220 


INC- HL 

13240 


LD ( PROG ) , HL > 

13260 


LD ( VARS) , HL 

13280 


LD (HL) , #80 

13300 


INC HL 

13320 


LD (ELINE) , HL 

13340 


LD ( HL ) , #0D 

13360 


INC HL 

13380 


LD (HL) , #80 

13400 


INC HL 

13420 


LD (WORKSP) , HL 

13440 


LD (STKBOT) , HL 

13460 


LD (STKEND) , HL 

13480 


LD A, #38 

13500 


LD (ATTRP) , A 

13520 


LD (ATTRT) , A 

.13540 


LD (BORDCR) , A 

13560 


LD HL, #0523 

13580 


LD (REPDEL) ,HL 

13600 


DEC ( IY— 58) 

13620 


DEC ( IY— 54) 

13640 


LD HL, #15C6 

13660 


LD DE,#5C10 

13680 


LD BC , #OOOE 

13700 


LDIR 

13720 


SET 1, (IY+1) 

13740 


CALL #OEDF 

13760 


LD ( IY+49) , 02 

13780 


CALL #0D6B 

13800 


XOR A 

13820 


LD DE, (TEXT) 

13840 


CALL #OCOA 

13860 


XOR A 

13880 


LD DE, TEXTA 

13900 


CALL #OCOA 

13920 


SET 5, (IY+2) 

13940 


LD IY, (NAVRAŤ) 

13960 


PUSH I Y ; ADR Z INIT 

13980 


LD IY, #5C3A 

14000 


RET 

14020 

14040 



? 

KONEC 

DEFB 0 t 
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Ivo Křepinský, Karlovarská S, 301 12 Plzeň 


V oblasti komunikace člověka s počítačem stále roste úloha dialogu, nejčastěji prostřednictvím displeje 
a klávesnice. Zvláště mikropočítače jsou pro dialog vhodné již svojí koncepci. Na druhé straně realizace lepšího 
dialogového systému není snadná záležitost, navíc je obvykle odtažitá od vlastního řešeného problému, proto 
často programátor vytvoří jakousi náhražku, která formou dotazů a odpovědí realizuje dialog. Toto řešení je pro 
programátora výhodné, protože je nenáročné na pracnost; uživateli, a zvláště neznalému uživateli, však přináší 
obtíže při používání. 

DIATEM realizuje dialogovou část programu, umožňuje programátorovi soustředit se plně na vlastní problém, 
uživateli pak nabízí názorný a srozumitelný dialog. 


Výhody DIATEMu 

Ze strany programátora: 

— méně práce (dialog je hotový), 

— srozumitelnější program (dialogová 
část je oddělena), 

— oddělení návrhu displeje a jeho 
ovládání, 

— jednoduchý převod programu na 
jiný počítač (přizpůsobuje se pouze 
dialogový systém), 

— jeden program může zabezpečovat 
několik činností (při použití přístupo- 
vých práv). 

Ze strany uživatele: 

— příjemná práce, 

— jednotná forma dialogu při různých 
programech. 

DIATEM je realizován pro použití na 
počítači PMD-85. Jednoduchým 


DIATEM je napsán v BASICu 
v podobě souboru podprogramů, které 
se připojí k hlavnímu programu. 

Základní pojmy 

Dialog se uskutečňuje pomocí dialo- 
gového displeje. Tento displej navrhuje 
programátor ve tvaru zadání dialogo- 
vého displeje (pomocí příkazů DATA). 
Zadání displeje si DIATEM po otevření 
tohoto displeje při běhu programu 
mění na vnitřní popis dialogového 
displeje. 

Dialogový displej se skládá z polo- 
žek. S nimi pracuje programátor pomo- 
cí funkcí DIATEMu. Funkce umožňují 
např. vyplnění hodnoty položky, zápis 
do položky, výběr položky apod. Ke 
každé položce existují přístupová práva 
pro výběr a zápis. Položka v sobě 
slučuje vlastnosti bodu menu a údaje 
formuláře. Má jednotné zadání, popis 


Pro speciální typy přístupu lze použít: 

— prázdná množina — celý vektor 
nulový — nikdo nemá přístup, 

— univerzální množina — celý vektor 
jedničkový — všichni mají přístup. 

Položky 

Položka je z hlediska programu nej- 
menší, dále nedělitelná část dialogo- 
vého displeje. Přes ni se pomocí funkcí 
dialogového systému uskutečňuje dia- 
log. 

Položka se skládá z těchto částí: 

— aktivní bod — bod, na který je 
možno najet kurzorem, a tak vybrat 
položku, 

— hodnota — vlastní hodnota položky 
(číslo, text atd.). 

Každá z těchto částí může chybět, 
podle toho se rozlišuje použití položky: 



v systému. To znamená, že veškeré 
zadávání i veškeré zobrazování se 
provádí přes dialogový systém. Pro- 
gram je tím jednak zbaven starostí se 
vstupy a výstupy, jednak se stává 
hardwarově nezávislým. 


— — ^ předáváni' údajů 
vytvářeni 

— real-zcce vytvářeni 


Přístupová práva 


položky uvedena množina skupin, kte- 
ré mají tento druh přístupu povolen. 

Pro každou položku může být zadána 
klíčová klávesa — znaková klávesa, při 
stisku které se kurzor přemístí na 
danou položku (urychlení přesunů kur- 
zoru). 


Dialog může mít mnoho forem, pro 
srozumitelnou a jednoduchou obsluhu 
však jsou nejvhodnější dvě: 

— technika menu — uživatel si vybírá 
z nabídky činností (slouží pro řízení 
činnosti), 

— formulářová technika — uživatel 
vyplňuje a opravuje údaje formuláře 
(slouží pro vstup a výstup dat). 

DIATEM umožňuje: 

— zobrazení dialogového displeje, 

— vstup z položky, 

— výstup do položky, 

— výběr položky, 

— základní editaci zadávaných údajů, 

— respektování uživatelských práv pro 
výběr a zápis. 
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Pro 'přístup do položek jsou vytvoře- 
ny skupiny uživatelů. Každá skupina 
má jiná přístupová práva. 

Uspořádání do skupin je libovolné, 
každá skupina může obsahovat libovol- 
né uživatele, každý uživatel může patřit 
do libovolných skupin. Uživatel má pak 
práva všech skupin, do kterých patří. 
Rozdělení do skupin určuje progra- 
mátor. 

Při určování přístupu se porovná 
množina skupin uživatele s množinou 
skupin, které mají právo přístupu do 
položky. Pokud je nalezena alespoň 
jedna shodná skupina, je přístup povo- 
len. 

Informace o skupinách je uložena 
pozičně, určena polohou bitu ve vekto- 
ru; hodnota bitu určuje přítomnost 
skupiny. Porovnání množin se provádí 
logickým součinem vektorů. Pokud je 
výsledek nenulový, nastala alespoň 
jedna shoda. 


Zadání dialogového displeje 

Zadání vytváří programátor jako část 
svého programu pomocí příkazů DATA. 
V zadání musí uvést: 

— neměnné texty na obrazovce, 

— zadání položek. 

Zadání je ve tvaru: 

zadání textu 

zadání textu 
—1 

počet položek (n) 
zadání položky 1 


zadání položky n 

Zadání textu je ve tvaru: 

vodorovná adresa na obrazovce, 
svislá adresa na obrazovce, 
text. 








Zadání položky je ve tvaru: 

vodorovná adresa aktivního bodu na obratovou, 

svisti adresa aktivního bodu na obrazovce. 

Míčová klávesa (znak), 

přístup k výběru položky, 

vodorovná adresa hodnoty na obrazovce, 

svislá adresa hodnoty na obrazovce, 

délka hodnoty (počet znaků/, 

přístup k zápisu do hodnoty. 

Vodorovná adresa klíčového bodu 
a délka hodnoty jsou v popisu displeje 
použity k indikaci typu položky, proto 
musí být nenulová. Neexistence části 
položky se zadává prázdnou množinou 
přístupu. 

Zadání dialogového displeje může 
být v programu libovolný počet, jejich 
rozlišení se provádí před otevřením 
dialogového displeje příkazem RESTO- 
RE číslo řádku. 

Popis dialogového displeje 

Popis si vytváří dialogový systém při 
otevření dialogového displeje. Popis je 
umístěn v poli QA. Je složen z popisu 
jednotlivých položek, každá položka je 
umístěna v jednom řádku pole QA 
takto: 
sloupec 

<h vodorovná souřadnice aktivního bo- 
du (pokud je zakázán výběr položky, je 
tento údaj záporný), 

1: svislá souřadnice aktivního bodu, 

2: klíčová klávesa (ASCII hodnota 
klávesy), 

3: vodorovná souřadnice hodnoty, 

4: svislá souřadnice hodnoty, 

5: délka hodnoty (pokud je zakázán 
zápis do hodnoty, je tento údaj 
záporný). 


Popis existuje po celou dobu setrvání 
daného dialogového displeje na obra- 
zovce (do otevření jiného displeje). 


Funkce DIATEMu 

Pomocí funkce může program komu- 
nikovat s uživatelem. Funkce se volají 
příkazem GOSUB číslo řádku. Para- 
metry jsou proměnné s vyhrazenými 
jmény, která jinde v programu nesmějí 
být použita. 

Parametry: 

CP číslo položky, 

HO$(CP) hodnota položky, 

PP přístupová práva uživatele. 

U popisu funkcí je vždy uvedeno 
jejich jméno (má význam pouze pro 
lepší porozumění), číslo řádky, použité 
parametry a činnost 

INIT 51000 — 

Musí být použita před použitím všech 
ostatních funkcí, a to pouze jednou 
v programu; slouží pro inicializaci vnitř- 
ních proměnných. 

OPEN 52000 vstup: PP 
Provádí otevření dialogového displeje 
pro práci; provede zobrazení textu 
a aktivních bodů a vytvoří popis dialo- 
gového displeje podle zadání dialogo- 
vého displeje a přístupových práv uži- 
vatele; před voláním je nutno zvolit 
dialogový displej příkazem RESTORE. 


CURSOR 53000 vstup: CP 
výstup: CP 

Provádí nastavení kurzoru na aktivní 
bod dané položky; pokud tato položka 
nemá povolen výběr aktivního bodu, 
zkoušejí „se postupně následující po- 
ložky; výstupní hodnota CP označuje 
položku, kde se kurzor zastavil. 

SET 54000 vstup: CP,HO$(CP) 
Způsobí zobrazení řetězce HO$(CP) 
v hodnotě položky; řetězec je zarovnán 
doleva, chybějící znaky doplněny me- 
zerami, přebytečné znaky oříznuty. 

ASK 55000 vstup: CP 

výstup: HO$(CP) 

Tato funkce umožňuje vstup z dané 
položky; kurzor skočí na první znak 
hodnoty a uživatel může hodnotu vy- 
plnit. 

Editační klávesy: 

posun kurzoru, 

CLR smazání hodnoty, 

EOL ukončení zadávání. 

GET 56000 vstup: CP 

výstup: CP,HOj>(CP) 
Umožňuje výběr položky a případný 
vstup z této položky; kurzor je nastaven 
na aktivním bodu dané položky, uživa- 
tel s ním může pohybovat po aktivních 
bodech klávesami «- (předchozí po- 
ložka a -» (následující položka) nebo 
klíčovými klávesami a klávesou EOL 
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vybrat žádanou položku; pokud nemá 
položka hodnotu nebo je zakázán zápis 
(bod menu), činnost funkce končí, 
pokud položka má hodnotu (údaj for- 
muláře), je další činnost stejná jako 
u funkce ASK. 

Program DIATEM 

Použiti BASIC-G na PMD-85 přineslo 
několik omezení: 

— volání a umístění funkcí: 

BASIC-G neumožňuje volání podpro- 
gramů jménem, je tedy nutno volat 
číslem řádku; čísla řádků jsou neměn- 
ná, proto je DIATEM umístěn v oblasti 
50000—59999, programátor ji nesmí 
použít. 

— parametry funkcí: 

BASIC-G neumožňuje předávat při vo- 
lání parametry, proto byly vybrány 
proměnné, které program musí před 
voláním funkce nastavit, funkce je pak 
použije jako vstupní parametry, po- 
dobně funkce nastavuje výstupní para- 
metry. 

— lokální proměnné: 

BASIC-G neumožňuje lokalitu proměn- 
ných, proto mají v DIATEMu všechny 
lokální proměnné jméno začínající pís- 
menem Q, programátor tato jména 
nesmí použít v programu. 

DIATEM používá tři hardwarově závislé 
funkce: 

— vstup z klávesnice: 

je realizován přes podprogram monito- 
ru, volá se funkcí USR(-31583); 

— zobrazeni kurzoru: 

kurzor je znázorněn inverzností zobra- 
zení znaku, používají se pro něj pro- 
měnné QB$ . a QJ$, zobrazování se 
provádí příkazy BMOVE a BPLOT (pod- 
program 57200); 

— tisk na určenou polohu na obrazov- 
ce: 

BASIC-G neumožňuje tisk na libovol- 
nou polohu na obrazovce, monitor však 
alespoň částečně ano; je nutno nastavit 
adresu na obrazovce do paměti na 
adresách -16322 a -16321 a nulovat 
polohu tisku pro BASIC na adrese 
24065 (podprogram 57100). 

Proměnné 

Globální proměnné: 

NP maximální počet položek, musí na- 
stavit programátor před voláním 
INIT, 

CP číslo položky, 

HO$(NP) hodnoty položek, 

PP přístupová práva uživatele. 

Lokální proměnné: 

QA(NP,5) popis dialogového displeje, 
QB$ levá polovina kurzoru, 

QJ$ pravá polovina kurzoru, 

QC vodorovná souřadnice kurzoru, 

QD svislá souřadnice kurzoru, 

QE vodorovná souřadnice tisku, 

QF svislá souřadnice tisku, 

QG$ řetězec pro tisk, 

OH pomocná proměnná, dočasné hod- 
noty, 

Ql pozice znaku při editaci, 
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QK směr posunu kurzoru po aktivních 
bodech. 

Pomocné podprogramy • 

Tyto podprogramy jsou volány 
z funkcí Diatemu, programátor je však 
může také použít, pokud chce realizo- 
vat speciální chování dialogu. Popis 
podprogramů je stejný jako u funkcí: 

PRINT 57100 vstup: QE,QF,QG$ 
Funkce provádí tisk řetězce QG$ na 
pozici na obrazovce určenou QE a QF. 

CURNEG 57200 vstup: QC,QD 
Funkce provádí negaci zobrazení kur- 
zoru na pozici určené QC a QD. 

EDIT 57300 vstup: CP,HO$(CP),QA 
výstup: HO$(CP) 

Funkce provádí vstup do hodnoty po- 
ložky CP s editací. 

POUŽITÍ DIATEMU 

Pořadí a počet použití dialogových 
funkcí jsou libovolné, nejdříve je však 
nutno nastavit největší počet položek 
NP a provést funkci INIT. 

DIATEM neprovádí kontrolu zadání 
dialogového displeje, ani použití funkcí, 
to je věcí programátora. Pokud se 
podobná chyba vyskytne, způsobí buď 
nesprávné chování dialogu nebo 
ukončení a hlášení chyby BASICu. 

Všechny vodorovné a svislé adresy 
na obrazovce, se kterými se pracuje, 
jsou takové, jako by byly určeny pro 


50000 REM 

50010 REM ******************** 

50020 REM * * 

50025 REM * DIATEM * 

50030 REM * DIALOGOVÝ SYSTEM * 

50040 REM * PMD-85 * 

50050 REM * * 

50060 REM ******************** 

50070 REM 
50080 REM 
51000 REM 

51010 REM *** INIT *** 

51020 REM INICIALIZACE DIALOGU 
51030 REM 

51040 PP=*— 1 :QB$=" ":QJ$= *??????? 

??" 

51050 DIM QA(NP,5> ,HO$(NP) :QK«1: RETURN 
52000 REM 

52010 REM *** OPEN *** 

52020 REM OTEVŘENI DIALOGOVÉHO DISPLEJE 
52025 REM DISPLEJE SE ROZLISUJI POMOCI R 
ESTORE PŘED VOLÁNÍM 
52030 REM 

52040 GCLSAR:QC=0:QD=0 

52050 READ QE: IF QE>=0 THEN READ QF , QG$ : 
GOSUB 57100sGOTO 52050 

52060 READ NP:POR CP«1 TO NPíREAD QAÍCP, 
0) ,QA(CP, 1 ) ,QH ,QG$ 

52070 IP (QH AND PP)=0 THEN QA(CP,0)=-QA 
(CP,0) 

52080 QA(CP,2)=ASC(QG$+CHR$(0)):READ QA( 
CP,3) ,QA(CP,4),QA(CP,5) ,QH 
52090 IP (QH AND PP)=0 THEN QAÍCP, 5)=-QA 
(CP, 5) 

52100 QE=QA ( CP , 0 ) : I F QE<0 THEN 52120 
52110 QF=QA(CP,1) :QG$=**":GOSUB 57100 
52120 NEXT CP:CP«l:GOSUB 57200:GOTO 5300 
0 

53000 REM 

53010 REM *** CURSOR *** 

53020 REM NASTAVENI KURZORU NA POLOŽKU 

53030 REM VSTUP - CP (CISLO POLOŽKY) 

53040 REM 

53050 GOSUB 57200 

53060 IP CP<»0 THEN CP=NP 

53070 IF CP>NP THEN CP=1 

53080 IF QA(CP,0)>=0 THEN QC-QAÍCP, 0 ) :QD 

»QA(CP,1) :QK=l:GOTO 57200 

53090 CP=CP+QK:GOTO 53060 

54000 REM 

54010 REM *** SET *** 

54020 REM ZOBRAZENI HODNOTY V POLOŽCE 
54030 REM VSTUP - CP (CISLO POLOŽKY) 
54040 REM - HOS(CP) (HODNOTA POLOŽ 

KY) 

54050 REM 

54060 QE»QA(CP,3) :QF=QA(CP,4) :IF QB<0 TH 
EN RETURN 

54070 QG$=LEPT$ ( HO$ ( CP )+" 

" , ABS ( QA (CP,5))) 


příkaz BMOVE — vodorovné 0 až 47, 
svislé 0 až 241 (242 nelze použít). 

Přístupové množiny se zadávají jako 
dekadická čísla reprezentující binární 
vektor. Vektor může mít maximálně 16 
míst, tj. může být 16 různých přístupo- 
vých skupin. Stejným způsobem se určí 
přístupová práva uživatele nastavením 
proměnné PP. 

Výběr položky pohybem kurzoru 
klávesami -* se provádí podle pořadí 
zadání položek. Je proto vhodné za- 
dávat položky v pořadí, které odpovídá 
logickým pohybům kurzoru. 

Přizpůsobení pro jiné počítače 

DIATEM je možno přizpůsobit pro 
libovolný počítač s jazykem BASIC, 
jedinou podmínkou je možnost realiza- 
ce 

— vstupu z klávesnice, 

— zobrazení kurzoru, 

— tisku na určenou polohu na obrazov- 
ce. 

Přizpůsobení spočívá v úpravě těch- 
to tří funkcí: 

— vstup z klávesnice — řádky 56060, 
57330, s tím souvisejí kódy editačních 
kláves — řádky 56060, 56070, 56100, 
57340, 57350, 57360, 57345. 

— zobrazení kurzoru — podprogram 
na 57200. 

— přímý tisk — podprogram na 57100. 


54080 GOTO 57100 
55000 REM 

55010 REM *** ASK *** 

55020 REM VYŽÁDÁNI VSTUPU POLOŽKY 
55030 REM VSTUP - CP (CISLO POLOŽKY) 

55040 REM VYSTUP - HO$(CP) (HODNOTA POLO 
ZKY ) 

55050 REM 

55060 GOSUB 53000 :GOTO 57300 
56000 REM 

56010 REM *** GET *** 

56020 REM VSTUP S VY3EREM POLOŽKY 
56030 REM VYSTUP - CP (CISLO POLOŽKY) 
56040 REM - HO$(CP) (HODNOTA POLO 

ZKY) 

56050 REM 

56060 GOSUB 53000:QH=USR(-31583) :IF QH=1 
37 THEN 57300 

56070 IF QH=131 THEN CP=CP-1 : QK=- l : GOTO 
56000 

56100 IF QH=133 THEN CP«CP+l:GOTO 56000 
56130 FOR QI=»1 TO NP:IP QA(QI,2)=QH THEN 
CP=QI 

56140 NEXT QI:GOTO 56000 
57000 REM 

57010 REM ** POMOCNÉ PODPROGRAMY ** 

57100 REM * PRINT * 

57110 REM PRIMY TISK NA OBRAZOVKU 

57120 REM QE,QF - POLOHA TISKU, QGS - TE 

XT 

57130 POKE -16322, QE+64*QF-256*INT(QF/4) 

: POKE -16321, 195+INTÍQF/4 ) 

57140 POKE 24065, OsPRINT QG$ ; : RETURN 
57200 REM * CURNEG * 

57210 REM NEGACE ZOBRAZENI KURZORU 

57220 IF QC=0 THEN 57250 

57230 BMOVE QC-1,QD+1 

57240 BPLOT QB$,1 

57250 BMOVE QC,QD-*-l 

57260 BPLOT QJ$,1 

57270 RETURN 

57300 REM * EDIT * 

57310 IF QAÍCP, 5)0 THEN RETURN 
57320 GOSUB 57200:QD=QA(CP, 4 ) :QI=1 
57330 QC=QA(CP,3)+QI-1: GOSUB 57200:QH=US 
R( -31583 ) 

57340 IF QH=137 THEN 53000 

57345 IF QH=14i THEN GOSUB 53000:HO$(CP) 

=*" : GOSUB 54000 :GOTO 57300 

57350 GOSUB 57200:IF QH=131 THEN QI=*QI-1 

íGOTO 57390 

57360 IF QH=*133 THEN QI=QI+1 :GOTO 57390 
57370 HO$ ( CP ) =MID$ ( LEFT$ ( " “+HO$(CP> ,QI) 
+CHR$(QH)+MID$(HO$(CP) ,QI+1) ,2) 

57390 QE=QA( CP , 3 > +QI-1 : QF=QA ( CP , 4 ) :QG$=C 

HR$ (QH) :GOSUB 57100 :QI=QI+1 

57390 IF QI=0 THEN QI~1 

57400 IF QI>QA(CP, 5 ) THEN QI=QI-1 

57410 GOTO 57330 


